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Introduction 



You're seated in a heavily padded chair which is vibrating 
eversosiightly. All of a sudden you feel a jolt and your view- 
screen, which has previously been black, shows the reced- 
ing form of the lunar command module It will continue to 
orbit around the moon two hundred miles up whileyou land 
your LEM and explore the moon. Your viewscreen now 
shows that you are beginning to tumble, so you hit the but- 
ton on your right joystick to give a short burst on the star- 
board stabilization rockets. A few more short bursts right, 
left, then right again and your viewscreen shows that 
you've stabilized your craft and that you're headed smooth- 
ly, if rather rapidly, toward the lunar surface. In panic you 
realize that you've taken a long time with your stabilizing 
maneuvers so you jab the retro rocket firing control on full. 
Your viewscreen is now obscured by the flames so you 
switch to a computer display which shows your spacecraft 
and its position as you approach the moon. You manage to 
slow your craft, however, you see that you're heading for 
the side of a crater and you don't have enough time for 
positional maneuvers. You switch your viewscreen back on 
and hope for the best. Unfortunately, the crater walls are 
steep and one leg of your LEM makes contact before the 
others. It buckles and the craft topples over. At this, 
Mission Control in Houston sends you a radio message, 
"Ground telemetry records severe craft damage. You have 
13.2 days of oxygen. Information on rescue attempt to 
follow. Don't panic." 

You punch another button on your console and your 
screen lights up, "Lunar Landing Simulation complete. Try 
again?" You lean back in your easychair, palms moist with 
perspiration and type, "No. Get Football." A moment later a 
referee and the hulking shape of Roger Staubach appears 
on the screen. The ref turns and asks you, "Heads or tails?" 

Far-fetched? Not at all. Technologically this is all possi- 
ble today. From an economic standpoint it will take a few 
more years before systems with these capabilities are with- 
in reach of the average consumer. But even today some 
amazing games are possible with the current breed of 
home computers. That's what this book is all about: games 
for home microcomputers, minis, timesharing systems and 
even large mainframes— in short, any computer that 
speaks Basic. 

Computer games are not a new phenomenon. Back in 
1952 shortly after the first commercial computers were 
introduced, A. L Samuel at IBM wrote a checkers program 
for the IBM 701. It was written with the idea that a great deal 
could be learned about the human thought process if one 
could simulate it on a computer. This also was the reason 
that Newell, Shaw, and Simon a few years later at Rand 
Corporation wrote the first computer chess program. But 
even to those uninitiated in the field of artificial intelligence 
research, these programs were great fun as games even if 
they didn't play outstanding chess or checkers. 

But while these programs were being written as part of 
research projects, a much larger group of people were fur- 
tively writing and playing games at lunchtime and before 
and after work on their employers' computers. There were 
at least two or three of these fanatical game players, some- 
times more, at each computer installation of any size. The 
advent of the minicomputer and timesharing networks in 
the early 1960's expanded this community of computer 
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hackers and by 1966 they were meeting at various profes- 
sional society meetings and laying out plans for a com- 
puter chess tournament. 

The hard core of the hackers, the real cultists, were 
those that were into Spacewar. Originally written by some 
hackers at the MIT EE Department back in 1961-62 for a 
DEC PDP-1, the first minicomputer, Spacewar spawned a 
fanatical community of hackers who played, modified, 
improved and experimented with it. 

"Ah, Spacewar. Reliably at any nighttime moment, hun- 
dreds of computer technicians are effectively out of their 
bodies, computer-projected onto CRT display screens, 
locked in life-or-death space combat for hours at a time, 
ruining their eyes, numbing their fingers in frenzied mash- 
ing of control buttons, joyously slaying their friends and 
wasting their employers' valuable computer time. Some- 
thing basic is going on." (Stewart Brand in // Cybernetic 
Frontiers.)* 

Item: October 10, 1972. The PDP-10 at the Stanford Al 
Laboratory is reserved from 8:00 p.m. on for the "Intergalac- 
tic Spacewar Olympics." 

Item: October 1976. Cromemco announces Spacewar for 
the 8080 and TV Dazzler. Paper tape $15.00. 

In layman's terms what those two items mean is that in 
the short span of four years Spacewar went from a game 
that required the use of a multi-million dollar computer to a 
game that could be played on a $1,000 home computer. 

What happens to a fanatical cult when you open the 
temple doors and let everyone take its source into their 
own homes? Obviously, we don't know since the temple 
hasn't been open that long, but it seems obvious that this 
same generation of kids that can't do manual math or use a 
slide rule because of the pocket calculator may learn that a 
TV set can throw some actively challenging things their 
way instead of just a passive picture. 



About this Book 

Basic Computer Games: Microcomputer Edition is a 
major revision of my first book, 707 Basic Computer Games 
published in 1973 by Digital Equipment Corporation. The 
programs in the original book represented six different ver- 
sions of Basic. The programs in this book all run in Micro- 
soft Basic (more about that later on pageXII). There were 
several programs that couldn't be converted or weren't 
worth converting to Microsoft Basic. These were deleted 
and replaced with new programs. 

Program listings were done on a Teletype Model 43 ter- 
minal. Its 7 x 9 dot matrix printer coupled with its 13.2 char- 
acters per inch spacing gives it exceptionally high legibil- 
ity, even when reduced to 64% as it has been done in here. I 
salute those of you with the first book who patiently, magni- 
fying glass in hand, deciphered nearly illegible listings and 
got those programs up and running. This book should 
make that task considerably easier, 

David H. Ahl 
September, 1978 



"Steward Brand, II Cybernetic Frontiers, New York, Random 
House, 1974. 
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The Basic 
Language 



Be sure to read this section before entering any of the 
games in this book on your computer. It will save you time 
and minimize potential problems. 

The games in this book were written by a wide cross 
section of people on a variety of computers over a ten- 
year period. Most of the games were originally written for 
time-sharing systems such as the DEC Timeshared 8 and 
RSTS-11, HP 2000, and CDC 3600. 

The first edition of this book was originally published in 
the early 70's. All the programs were printed in their 
original dialect of Basic. One of the major functions of 
the book was to give computer users an opportunity to 
learn more about their own and other versions of Basic. 
For example, a dimensioned string variable such as 
A$(l) had an entirely different meaning in DEC and HP 
Basics. The designers of each version of Basic had good 
reasons for doing what they did and it was (and is) very 
instructive to understand how different approaches work 
and their respective rationales. 

In 1975, a small company in the telemetry business, 
M.I.T.S., introduced the first computer for hobbyists, the 
Altair 8800. This signaled the start of an immense new 
industry: personal computers. Ed Roberts, president of 
M.I.T.S., contracted with a small consulting company 
started by two bright young programmers to write a 
version of Basic for the Altair. 

The name of the consulting company was Microsoft, 
and the Basic that Bill Gates and Paul Allen devised soon 
came to be known, appropriately enough, as Microsoft 
Basic. It was modeled on Basic-Plus, originally a creation 
of Nathan Teichholtz at Digital Equipment Corporation. 
Nathan is an unsung hero in the history of the Basic 
language and deserves a great deal of credit for this vastly 
improved version of the language. And in the kudos de- 
partment, we must always remember to bow low to John 
Kemeny and Tom Kurtz of Dartmouth, the creators of the 
original Basic. 

In any event, in 1977 it appeared that Microsoft Basic 
was fast becoming the standard Basic for micro- 
computers, and the programs in this book were all con- 
verted to Microsoft Basic, Revision 4.0. For about three 
years, this Basic truly was the standard. 

However, three things conspired against it becoming 
the all-time standard. First, it was written for the 8080 
(and Z80) microprocessor, and later mpu's had cap- 
abilities (and idiosyncrasies) that the 8080 did not have, 
hence, slight differences started creeping into Microsoft 
Basic on later computers. 

Second, not all computer manufacturers wanted to 
contract with Microsoft to write Basic for their computers 
and so some wrote their own. This has led to some 
particularly interesting (and confusing) dialects of Basic. 

Third, as computer hardware became more powerful 



with 16-bit mpu's, special chips for graphics and sound, 
Winchester disk drives, modems, and other peripherals, 
various extensions and changes had to be made to the 
software. Some of these changes are in the operating 
system and are transparent to the user, but others affect 
the Basic language. 

So, what you are holding is a book of thoroughly de- 
bugged programs that can be entered directly and will 
run perfectly on some computers, while on other com- 
puters they will not run at all. What can you do about it if 
you have a computer on which the programs will not run? 

First, do not call or write us. You have paid less than a 
dime per program and, after everyone has taken his share, 
we have made less than 1 cent per program; for that, we 
can't afford to act as personal consultants. 

Second, please keep in mind that every program runs 
perfectly in Microsoft Basic 4.0. The sample runs are not 
faked; they came off a real computer exactly as they 
appear. There are no typographical errors in the pro- 
grams — misspellings maybe — but the functional code 
is absolutely correct. 

Third, the early versions of the books had programs in 
15 or 20 vastly different dialects of Basic, yet hundreds of 
thousands of purchasers managed to convert the pro- 
grams to their machines and get them going. 

The key to converting the programs is to understand 
how Microsoft Basic works compared with your Basic. 
While we cannot present an entire manual on Microsoft 
Basic, we have included in the next section information 
on the key elements of the language and those likely to be 
different in other implementations. 

If direct conversion doesn't work, do some "reverse 
engineering," (as it known in the computer industry). This 
means taking apart a program and drawing a flowchart of 
the logic. With a flowchart in hand, you can then write 
your own program to do the same thing, but often faster 
and better. 

Since many of the programs were originally written in 
what today would be considered a primitive version of 
Basic, there are many ways of substantially shortening 
and improving some of these programs. 

You should also keep in mind that all of these programs 
were written on computers which used an ASR-33 
Teletype terminal. These are massive clunkers with 72 
(or 80) columns of output, upper case only, and no 
graphics capability whatsoever. Naturally, you will have 
to do a fair amount of reformatting if your computer has 
only 40 columns (Apple, etc.), 32 columns (Sinclair), 28 
columns (Tl), or 20 columns (Epson HX-20). It can be 
done; for another book, I converted Hammurabi, Lunar 
Lander, and Gunner, all of which use 72 columns, to all 
the computers mentioned above. 
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The programs in this book 


use the following statements and functions in Microsoft Basic: 




Statements 
DATA 


Holds numeric or string data for a 
READ statement 


20 DATA 4,6,"AHL" 


DEF FNA(X) 
DIM 


Defines any function of X 

Declares maximum size of string 
or numeric array. Array subscript- 
ing begins atOalthough many pro- 
grams do not use the zero sub- 
script. 


20 DEF FNA(X)=3*X-2 

20 DEF FNA(X)=SIN(X/57.3) 

20 DIM A(50) 

20 DIM A$(25),B1$(50) 


END 


Last statement in program 


9999 END 


FOR. .TO. .(STEP) 


Executes a loop. The test for 
ending the loop is made after the 
loop has been executed. Upon 
exiting, the counter value equals 
the upper limit plus the step. 
For example, 

10 FOR J=1 TO 3 

20 PRINT "HI" 

30 NEXT J 
will print "HI" three times, and J 
will equal 4 when the loop is 
finished. 


20 FOR 1=1 TO 30 

20 FOR J=2 TO N STEP 3 


GOSUB n 


Branch to subroutine n 


20 GOSUB 200 


GOTO n 


Branch to statement n 


20 GOTO 50 


IF..THEN n 


Branch to statement n if condition 
is true 


20 IF A>1 THEN 50 


IF. THEN stmts 


Executes statements if condition is 
true. Drops to next numbered line 
if false. 


20 IF Z<5 THEN A=1:PRINT B 


IF..THEN n ELSE m 


Branch to n if true or to m if not true 


20 IFX=YTHEN 50 ELSE 90 


IF..THEN stmts 
ELSE stmts 


Does statements after THEN if 
true, stmts after ELSE if false 


20 IF Z>R THEN X=1 ELSE X=2 


INPUT 


Requests data from keyboard. The 
prompt string is optional 


20 INPUT N 

20 INPUT "YES OR NO";Z$ 


LET 


Assigns value of expression to 

variable. 

The word LET is optional 


20 LET A=1 
20 Z$="DRY" 


NEXT 


Marks end of FOR loop 


20 NEXT J 


ON m GOSUB... 
ON m GOTO... 


Branch to mth subroutine 
Branch to mth line no. 
In these statements, m must be an 
integer starting at 1 and increasing 
by 1 


20 ON X GOSUB 100,200 
20 ON Y GOTO 50,80,120 


PRINT 


Displays strings, constants and 
variables. Calculations can be 
done within a PRINT statement 


20 PRINT "A=";A 
20 PRINT Z$,10*A+B 


READ 


Moves values of DATA into 
variables 


20 READ N,X1,A$ 


REM 


Remark. Does not execute 


20 REMARKABLE PROGRAM 


RESTORE 


Resets DATA pointer to first item 
in list 


20 RESTORE 


RETURN 


Go to statement following last 
GOSUB 


20 RETURN 


STOP 


Terminate program 


20 STOP 
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Functions 




ABS (X) 


Absolute value. 


ASC(X$) 


Returns the ASCII value of the first 




character in the string argument. 




ASC("A") is 65,ASC("B") is 66, etc. 


ATN(X) 


Arctangent 


CHR$(X) 


Converts ASCII value to a char- 




acter string. CHR$(65) is "A", etc. 




CHR$(7) is a bell ring. 


COS(X) 


Cosine 


EXP(X) 


Value of e raised to the X power 


INT(X) 


Integer function 


LEFT$(X$,Y) 


The leftmost Y characters in X$ 


LEN(X$) 


Number of characters in X$ 


LOG(X) 


Log of x to the base e 


MID$(X$,Y,Z) 


Takes Z characters from X$ start- 




ing at position Y 


RND(1) 


Returns a random number be- 




tween and 1. 


RIGHT$(X$,Y) 


The rightmost Y characters in X$ 


SGN(X) 


Sign function. Returns -1 if X is 




negative, if x is zero, 1 if x is 




positive. 


SIN(X) 


Sine 


SQR(X) 


Square root 


STR$(X) 


Converts X to a string of decimal 




digits, for example if X was 8.45 it 




would be converted to the string 




"8.45". 


TAB(X) 


Spaces over to position X on the 




terminal. 


TAN(X) 


Tangent 


VAL(X$) 


Returns the numerical value of the 




string of digits in X$. Opposite of 




STR$(X). 



In Microsoft (Altair) BASIC, any expression may be 
evaluated as either true or false. A true condition will 
return a value of -1 , and a false condition 0. Thus, if we say 
LET Q= -(X=Y), Q=1 if X=Y and Q=0 if X=Y. This logical 
evaluation of expressions is only used in the Hexapawn 
game in the user-defined function and with a little in- 
genuity could be replaced with a look-up table. A few 
other games use the logical AND and OR operators, which 
work in a straightforward manner. 

The programs in this book were printed on a printerthat 
uses a caret (a) to indicate exponentiation. This is 
equivalent to an up arrow. Incidentally, exponentiation 
and taking roots are among the least accurate functions 
on small computers. For example, try this program. 

10 INPUT N 

20 l=SQR(SQR(N)) 

30 J=(lt2)!2 

40 PRINT N,J 

50 GOTO 10 
Chances are good that N and J will not be the same 25% 
or more of the time. You can improve the accuracy by sub- 
stituting J*J for J squared or J*J*J for J cubed. 

Microsoft Basic permits more than one statement on a 
line when the statements are separated by a colon (:). As 
noted above, in an IF..THEN statement, if the condition is 
false, control drops to the next numbered line, not to the 
next statement on the same line. 

This means that for Tl and other computers that do not 
permit multiple statements on one line, you will have to 
insert additional lines. This may be difficult when line 
numbers are close together. One easy solution is to add a 
zero to all line numbers, but you must remember to do 
this in IF..THEN, GOTO and GOSUB statements as well 
as changing all the numbered lines. 

The random function can be especially irksome as it is 
one that differs widely on different versions of Basic. In 
Microsoft Basic, RND(1) returns a value between and 
0.999999. This is the convention used in all programs in 
this book. On some computers, you may have to use 
RND(0), and on others just RND. 
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Conversion to 
other Basics 



Radio Shack BASIC: Approximately 25 of the games 
which do not use strings will run under Level 1 BASIC; 
another 20 or so may be converted relatively easily by 
converting to all numeric input (1 instead of YES, for NO, 
etc.). In Level 2, change RND (1 ) to RND (0). Also function 
definitions, when used, must be expanded. 

Apple II BASIC: All programs will run directly in Applesoft 
Basic with little or no modification. In integer Basic, 
strings are similar to HF Basic. Also, multiple statements 
on one line work differently than with Microsoft Basic. 

DEC BASIC PLUS: Programs written in Altair BASIC 
should be completely compatible with DEC BASIC PLUS. 

HP BASIC: Some conversion will be required to get certain 
programs to run in HP BASIC. First, HP BASIC does not 
have a zero subscript for arrays. So if, in a program, the 
zero subscript is used, HP BASIC will report a subscript 
out of bounds error. The solution is to add one to all the 
array subscripts if it is determined that the program does 
use the zero subscript. 

Second, HP BASIC character strings differ from Altair 
BASIC. There are no string arrays. So if string arrays are 
used in some program, a conversion must be made. 
Possibly the string array could be converted into a single 
string, or a numeric array, or a series of data statements, or 
possibly a data file. Also, HP BASIC does not have 
RIGHT$, LEFT$ or MID$ functions. Instead substitute the 
normal HP string subscripting conventions [for instance, 
RIGHTS$(X$,2) becomes X$(LEN(X$)-1, LEN(X$)]. 

Third, HP BASIC does not have multiple statements on 
one line. Convert multiple statement lines to several 
separate lines. 

SWTPC 6800 BASIC: Versions 2.0 and above of this 
BASIC should be nearly compatible. Like HP BASIC, 
SWTPC BASIC does not allow the zero subscript. Also, 
character strings may not contain more than 32 
characters. Note that in Altair BASIC, RND(1) is used to 
get random numbers, rather than RND(0) as in SWTPC 
BASIC. These comments also apply to MSI Disk BASIC. 

TDL ZAPPLE 8K and 12K BASIC: All the programs are 
executable in both TDL BASICS. However TDL ZAPPLE 
BASIC has a RANDOMIZE verb which should be inserted 
at the beginning of a program to get true pseudorandom 
numbers. 



Sol BASIC: The programs will work directly in Sol 
Extended Basic. Many programs will run in 5K Basic but 
the majority will require considerable conversion. 

PET BASIC: Commodore PET BASIC is identical to the 
BASIC used in this book. Thus, all the games will run 
without any conversion. 

Cromemco 16K Extended BASIC: Cromemco BASIC 
allows multiple statements, but certain statements must 
be the last statement on a line, so some rearrangement 
may be necessary. Two-dimensional arrays must be 
dimensioned explicitly (there is no default to a 10 by 10 
dimension). Also, strings in Cromemco BASIC are 
implemented like HP BASIC, not Altair BASIC. 

Ohio Scientific BASIC: Most programs will run directly on 
Challenger 2P and larger systems. The 32-characters per 
line display of the Challenger 1P and Superboard will 
require conversion of the program output routines. 

IMSAI 8K BASIC: Programs are executable with little or no 
modification. 

North Star Disk BASIC: North Star BASIC has character 
strings like HP BASIC, so some conversion will be 
required. Also note that the function SORT is used in place 
of SQR. 

PolyMorphic 11K BASIC: The multiple statement 
separator is a backslash (/), not the colon. Like North Star 
BASIC, SORT is used instead of SQR. In Poly BASIC, 
you're not allowed to exit a FOR loop prematurely, except 
by using the EXIT verb. So whenever you see an 
IF. . .THEN out of a FOR loop, use the EXIT verb. Also note 
that in order to get random numbers, RND must be used 
with a "seed" value between and 1, which determines at 
what point in the sequence of random numbers the RND 
function starts. This seed value is usually based on the 
time of day. After initializing the RND function, use 
RND(0) to get random numbers. 

BASIC-E (runs under CP/M Disk Operating System): All 
arrays must be dimensioned (there is no default). The 
RANDOMIZE verb should be used, at the beginning of the 
program, to get random numbers. Also, multiple 
statements are not allowed, so conversion to several 
single statement lines will be necessary. 
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The Games [j^f* 



Acey Ducey 



This is a simulation of the Acey 
Ducey card game. In the game, the 
dealer (the computer) deals two cards 
face up. You have an option to bet or 
not to bet depending on whetherornot 
you feel the next card dealt will have a 
value between the first two. 

Your initial money (Q) is set to $100; 
you may alter Statement 110 if you 
want to start with more or less than 
$100. The game keeps going on until 
you lose all your money or interrupt the 
program. 

The original program author was Bill 
Palmby of Prairie View, Illinois. 



ACEY DUCEY CARD DANE 
CREATIVE COHPUTING H0RRIST0UN, NEU JERSEY 



ACEY-DUCEY IS PLAYED IN THE FOLLOUING HANNER 

THE DEALER (C0HPUTER) DEALS TUO CARDS FACE UP 

YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING 

ON UHETHER OR NOT YOU FEEL THE CARD MILL HAVE 

A VALUE 1ETUEEN THE FIRST TUO. 

IF YOU DO NOT UANT TO BET, INPUT A 

YOU NOU HAVE 100 DOLLARS 

HERE ARE YOUR NEXT TUO CARDS 
2 
9 

UHAT IS YOUR BET? 25 

QUEEN 

SORRY, YOU LOSE 

YOU NOU HAVE 75 DOLLARS 



HERE ARE YOUR NEXT TUO CARDS 
4 
10 

UHAT IS YOUR BET? 25 

to 

SORRY, YOU LOSE 

YOU NOU HAVE 50 DOLLARS 

HERE ARE YOUR NEXT TUO CARDS 

S 
QUEEN 

UHAT IS YOUR IETT 
CHICKEN!! 

HERE ARE YOUR NEXT TUO CARDS 
6 
10 

UHAT IS YOUR BETT 20 

10 
SORRY, YOU LOSE 
YOU NOU HAVE 30 DOLLARS 

HERE ARE YOUR NEXT TUO CARDS 

9 
JACK 

UHAT IS YOUR BETT 
CHICKEN!! 

HERE ARE YOUR NEXT TUO CARDS 

JACK 

OUEEN 

UHAT IS YOUR BET? 
CHICKEN 1 1 



10 PRINT TA8<26>;"ACEY DUCEY CARD 6ANE" 

20 PRINT TAB(I5);"CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY" 

21 PRINT 

22 PRINT 

23 PRINT 

30 PRINT U ACEY-DUCEY IS PLAYED IN THE F0LL0UIN6 HANNER " 

40 PRINT"THE DEALER (COHPUTER) DEALS TUO CARDS FACE UP" 

30 PRINPYOU HAVE AN OPTION TO DET OR NOT BET DEPENDING" 

60 PRINT"0N UHETHER OR NOR YOU FEEL THE CARD UILL HAVE" 

70 PRINT-A VALUE BETUEEN THE FIRST TUO." 

80 PRINT"IF YOU DO NOT UANT TO BET, INPUT A 0" 

100 N*100 

110 0-100 

120 PRINT'YOU NOU HAVE ";0;" DOLLARS" 

130 PRINT 

140 GOTO 260 

210 Q=Q*H 

220 GOTO 120 

240 Q=Q-H 

250 GOTO 120 

260 PRINT'HERE ARE YOUR NEXT TUO CARDS " 

270 A»INT<t4»RND(1))+2 

280 IF A<2 THEN 270 

290 IF A>14 THEN 270 

300 B=INT(14»RND<1))+2 

310 IF B<2 THEN 300 

320 IF BM4 THEN 300 

330 IF A>'B THEN 270 

350 IF A<11 THEN 400 

360 IF A°1t THEN 420 

370 IF A*12 THEN 440 

380 IF A=13 THEN 460 

390 IF A«14 THEN 480 

400 PRINT A 

410 60T0 300 

420 PRINT'JACK" 

430 GOTO 500 

440 PRINT"QUEEN" 

450 GOTO 500 

460 PRINT"KIN6" 

470 GOTO 500 

480 PRINT'ACE" 

500 IF B<11 THEN 550 

510 IF B*1! THEN 570 

520 IF B=12 THEN 590 

530 IF B«13 THEN 610 

540 IF B-14 THEN 630 

550 PRINT B 

360 GOTO 630 

370 PRINTMACK" 

380 GOTO 650 * 

590 PRINT"OUEEN" 

600 GOTO 650 

610 PRINT'KING" 

620 GOTO 650 

630 PRINT'ACE" 

640 PRINT 

650 PRINT 

660 INPUT'UHAT IS YOUR BET";H 

670 IF HOO THEN 680 

675 PRINT'CHICKENII' 

676 PRINT 

677 GOTO 260 
680 IF N<=0 THEN 730 

690 PRINT"S0RRY, HY FRIEND BUT YOU BET TOO MUCH" 
700 PRINT'YOU HAVE ONLY ";Q;" DOLLARS TO BET" 
710 GOTO 650 
730 C=INT(14*RND(1))t2 
740 IF C<2 THEN 730 
750 IF OI4 THEN 730 
760 IF C<11 THEN 810 
770 IF C = 11 THEN 830 
780 IF C=12 THEN 850 
790 IF C=13 THEN 870 
800 IF C=I4 THEN 890 
810 PRINT C 
820 GOTO 910 
830 PRINT"JACK" 
840 GOTO 910 
850 PRINT"QUEEN" 
860 GOTO 910 
870 PRINT'KING" 
880 GOTO 910 
890 PRINT "ACE" 




900 PRINT 

910 IF OA THEN 930 

920 00T0 970 

930 IF C)=B THEN 970 

950 PRINT'YOU UINIII" 

960 GOTO 210 

970 PRINT'SORRY, YOU LOSE" 

980 IF N<0 THEN 240 

990 PRINT 

1000 PRINT 

1010 PRINT"SORRY, FRIEND BUT YOU BLEU YOUR UAD" 

1020 INPUT"TRY AGAIN (YES OR N0)";A» 

1030 IF A»="YES" THEN 110 

1040 PRINFOK HOPE YOU HAD FUN" 

1050 END 



Amazing 



This program will print out a different 
maze every time it is run and 
guarantees only one path through. You 
can choosethe dimensions of the maze 
— i.e. the number of squares wide and 
long. 

The original program author was 
Jack Hauber of Windsor, Connecticut. 



AMAZING PROGRAM 
CREATIVE COMPUTING NORRISTQUN, NEU JERSEY 



UHAT ARE TOUR UIDTH AND LENGTH? 15,20 
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OK 



10 PRINT TAB(28)j"AMA2IN0 PROGRAM" 

20 PRINT TAB(I5);"CREflTiyE COMPUTING 

30 PRINT:PRINT:PRINT:PRINT 

100 INPUT "UHAT ARE YOUR UIDTH AND LENGTH";H,V 

102 IF HOI AND VOI THEN 110 

104 PRINT "MEANINGLESS DIMENSIONS. 

110 DIM U(H,V),V<H,V> 

120 PRINT 

130 PRINT 

140 PRINT 

150 PRINT 

140 0=0:Z=0:X=INT<RND(1>»H*1> 

US FOR 1 = 1 TO H 

170 IF I«X THEN 173 

171 PRINT ".-- "J:G0T0 180 
173 PRINT ". "; 
180 NEXT I 
190 PRINT "." 
195 C=1:U(X,1)=C:C=C*1 
200 R=X:S=1iG0T0 260 
210 IF ROH THEN 240 
215 IF SOU THEN 230 
220 R=1:S=1 :B0T0 250 
230 R=1:S=St1:GQT0 250 
240 R=R+1 

230 IF 1)(R,S)=0 THEN 210 
260 IF R-1=0 THEN 530 
265 IF U(R-1,S)O0 THEN 530 
270 IF 3-1=0 THEN 390 
280 IF U(R,S-1)O0 THEN 390 
290 IF R=H THEN 330 
300 IF U(R+1,SK>0 THEN 330 
310 X«INT(RND(1)»3*1) 
320 ON X GOTO 790,820,860 
330 IF SOU THEN 340 
334 IF Z=1 THEN 370 
338 Q=l:G0T0 350 
340 IF U(R,S+1)O0 THEN 370 
350 X=INT<RNDU>*3*1) 
360 ON X GOTO 790,820,910 
370 X=INT(RND<1>»2+1> 
380 ON X BOT0 790,820 
390 IF R=H THEN 470 
400 IF U(R+1,S)O0 THEN 470 
405 IF SOV THEN 420 
410 IF Z=l THEN 450 
4J5 Q=1:G0T0 430 
420 IF U<R,S+1)O0 THEN 450 
430 X=INT(RNDtl)»3+l) 
440 ON X 80T0 790,860,910 
450 X=INT(RNDU)»2+!> 
460 ON X GOTO 790,860 
470 IF SOV THEN 490 
480 IF Z=1 THEN 520 
485 Q-liGOTO 500 
490 IF U(R,S+1)O0 THEN 520 
500 X=INT(RND(1)»2+1) 
510 ON X GOTO 790,910 
520 60T0 790 
530 IF S-1=0 THEN 670 
540 IF 11(1,5-1100 THEN 670 
545 IF R=H THEN 610 
547 IF U(Rt1,S)O0 THEN 610 
550 IF SOV THEN 560 
552 IF Z»1 THEN 590 
554 Q=1:G0T0 570 
560 IF U(R,S*1)O0 THEN 590 
570 X=INT(RN0(1)»3+1) 
580 ON X 00T0 820,860,910 
590 X=INT(RND(1)»2+I> 
600 ON X GOTO 820,860 
610 IF SOV THEN 630 
620 IF Z=1 THEN 660 
625 Q=1:G0T0 640 
630 IF «(R,S+1)O0 THEN 660 
640 X«INT(RND(1)*2t1) 
650 ON X SOTO 820,910 



N0RRIST0UN, NEU JERSEY" 



TRY AGAIN. ":00T0 100 



660 GOTO 820 

670 IF R=H THEN 740 

680 IF U(Rt1,S)O0 THEN 740 

685 IF SOV THEN 700 

690 IF Z»1 THEN 730 

695 Q=1:G0TO 830 

700 IF U(R,S+1)O0 THEN 730 

710 X«INT<RND<1)»2+1> 

720 ON X GOTO 860,910 

730 GOTO 860 

740 IF SOV THEN 760 

750 IF Z-1 THEN 780 

755 OM:G0TO 770 

760 IF U(R,S+1)O0 THEN 780 

770 GOTO 910 

780 SOTO 1000 

790 U(R-1,S)=C 

800 C=C+1:V(R-1,S)=2:R=R-1 

810 IF C=H»V+1 THEN 1010 

815 Q=0:G0T0 260 

820 U(R,S-1)=C 

830 C=C*1 

840 V(R,S-1)=1:S=S-1:IFC=H*V+1 THEN 1010 

850 Q=0:G0T0 260 

860 U(R+1,S)=C 

870 C*C+1:IF V(R,S)=0 THEN 880 

875 V(R,S)*3:G0TO 890 

880 V(R,S)=2 

890 R=R*1 

900 IF C=H«V+1 THEN 1010 

905 GOTO 530 

910 IF 0=1 THEN 960 

920 U(R,St1)=C:C=C+1:IF V(R,S)=0 THEN 940 

930 V(R,S)=3:G0T0 950 

940 V(R,S)=1 

950 S=St1;IF C=H»V+1 THEN 1010 

955 GOTO 260 

960 Z=1 

970 IF V<R,S)=0 THEN 980 

975 V<R,S)=3iO=0:GOTO 1000 

980 V(R,S)«1:0«OiR=1:S=1:0OTO 250 

1000 GOTO 210 

1010 FOR J=1 TO V 

1011 PRINT "I"; 

1012 FOR 1=1 TO H 

1013 IF VII, JK2 THEN 1030 

1020 PRINT " "J 

1021 GOTO 1040 
1030 PRINT " I"; 

1040 NEXT I 

1041 PRINT 
1043 FOR 1=1 TO H 
1045 IF V(I,J)=0 THEN 1060 

1050 IF V(I,J)«2 THEN 1060 

1051 PRINT ": "; 

1052 GOTO 1070 
1060 PRINT ":--"; 

1070 NEXT I 

1071 PRINT "." 

1072 NEXT J 

1073 END 



Animal 



Unlike other computer games in 
which the computer picks a number or 
letter and you must guess what it is, in 
this game you think of an animal and 
the computer asks you questions and 
tries to guess the name of your animal. 
If the computer guesses incorrectly, it 
will ask you for a question that differen- 
tiates the animal it guessed from the 
one you were thinking of. In this way 
the computer "learns" new animals. 
Questions to differentiate new animals 
should be input without a question 
mark. 

This version of the game does not 
have a SAVE feature. If your system 
allows, you may modify the program to 
save array A$, then reload the array 
when you want to play the game again. 
This way you can save what the 
computer learns over a series of 
games. 

At any time if you reply "LIST" to the 
question "ARE YOU THINKING OF AN 
ANIMAL," the computer will tell you all 
the animals it knows so far. 

The program starts originally by 
knowing only FISH and BIRD. As you 
build up a file of animals you should 
use broad, general questions first and 
then narrow down to more specific 
ones with later animals. For example, if 
an elephant was to be yourfirst animal, 
the computer would ask for a question 
to distinguish an elephant from a bird. 
Naturally there are hundreds of 
possibilities, however, if you plan to 
build a large file of animals a good 
question would be "IS IT A MAM- 
MAL." 

This program can be easily modified 
to deal with categories of things other 
than animals by simply modifying the 
initial data in Line 530 and the dialogue 
references to animal in Lines 10, 40, 50, 
130, 230, 240, and 600. In an 
educational environment, this would 
be a valuable program to teach the 
distinguishing characteristics of many 
classes of objects — rock formations, 
geography, marine life, cell structures, 
etc. 

Originally developed by Arthur 
Luehrmann at Dartmouth College, 
Animal was subsequently shortened 
and modified by Nathan Teichholtz at 
DEC and Steve North at Creative 
Computing. 



AN I HAL 
CREATIVE COMPUTING M0RRIST0UN, NEU JERSEY 



PLAY 'GUESS THE ANIHAL' 

THINK OF AN ANIHAL AND THE COMPUTER MILL TRY TO GUESS IT. 

ARE YOU THINKING OF AN ANIHALT Y 

DOES IT SUIHT NO 

IS IT A BIRD? NO 

THE ANIHAL YOU UERE THINKING OF UAS A T ELEPHANT 

PLEASE TYPE IN A QUESTION THAT U0ULD DISTINGUISH A 

ELEPHANT FROM A BIRD 

? DOES IT LIKE PEANUTS 

FOR A ELEPHANT THE ANSUER UOULD BE 7 YES 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SUIHT YES 

IS IT A FISHT NO 

THE ANIHAL YOU UERE THINKING OF UAS A ? SEAL 

PLEASE TYPE IN A QUESTION THAT UOULD DISTINGUISH A 

SEAL FROH A FISH 

T DOES IT HAVE SCALES 

FOR A SEAL THE ANSUER UOULD BE T NO 

ARE YOU THINKING OF AN ANIHALT YES 

DOES IT SUIHT NO 

DOES IT LIKE PEANUTS? NO 

IS IT A BIRD? NO 

THE ANIHAL YOU UERE THINKING OF UAS A ? LION 

PLEASE TYPE IN A QUESTION THAT UOULD DISTINGUISH A 

LION FROH A BIRO 

? DOES IT ROAR 

FOR A LION THE ANSUER UOULD BE ? YES 

ARE YOU THINKING OF AN ANIHAL? YES 

DOES IT SUIHT YES 

DOES IT HAVE SCALES? NO 

IS IT A SEAL? NO 

THE ANIHAL YOU UERE THINKING OF UAS A ? OCTOPUS 

PLEASE TYPE IN A QUESTION THAT UOULD DISTINGUISH A 

OCTOPUS FROH A SEAL 

? DOES IT HAVE EIOHT TENTACLES 

FOR A OCTOPUS THE ANSUER UOULD BE T YES 

ARE YOU THINKING OF AN ANIHAL? YES 

DOES IT SUIHT NO 

DOES IT LIKE PEANUTS? YES 

IS IT A ELEPHANT? YES 

UHY NOT TRY ANOTHER ANIHAL? 

ARE YOU THINKING OF AN ANIHAL? YES 

DOES IT SUIHT NO 

DOES IT LIKE PEANUTS? NO 

DOES IT ROAR? NO 

IS IT A BIRD? NO 

THE AHIHAL YOU UERE THINKING OF UAS A ? UUHPUS 

PLEASE TYPE IN A QUESTION THAT UOULD DISTINGUISH A 

UUHPUS FROH A BIRD 

7 IS ITS LAST NAME YOB 

FOR A UUHPUS THE ANSUER UOULD BE ? YES 

ARE YOU THINKING OF AN ANIHALT LIST 



ANIHALS I ALREADY KNOU ARE: 
ELEPHANT FISH LION 
UUHPUS 

ARE YOU THINKING OF AN ANIMAL? NO 
ARE YOU THINKING OF AN ANIMAL? 

BREAK IN 130 
UK 



SEAL 



OCTOPUS 



BIRD 



10 PRINT TAB (32); "ANIMAL" 

20 PRINT TA8C15);"CREATIME C0HPUTIN8 N0RRIST0UN, NEU JERSEY" 

30 PRINT: PRINT: PRINT 

40 PRINT "PLAY 'BUESS THE ANIMAL'" 

50 PRINT "THINK OF AH ANIHAL AND THE COMPUTER UILL TRY TO BUESS IT." 

60 PRINT 

70 DIN AK200) 

80 FOR 1=0 TO 3 

90 READ AND 

100 NEXT I 

110 N"VAL(A*<0)> 

120 REH MAIN CONTROL SECTION 

130 INPUT "ARE YOU THINKING OF AN ANIHAL";A« 

140 IF A$="LIST" THEN 600 

150 IF LEFT»(A«,1K>"Y" THEN 120 

160 K=1 

170 BOSUB 370 

180 IF LENiA»(K))«0 THEN 999 

190 IF LEFT$(A«(K),2)="\Q" THEN 170 

200 PRINT "IS IT A ";RI6HT»(A*(K>,LEN(A*(K)>-2>; 

210 INPUT At 

220 A»=LEFT»(A»,1> 

230 IF A»*"Y" THEN PRINT "UHY NOT TRY ANOTHER ANIHAL?": OOTO 120 

240 INPUT "THE ANIHAL TOU UERE THINKINB OF UAS A ";V» 

250 PRINT "PLEASE TYPE IN A QUESTION THAT UOULD DISTINGUISH A" 

260 PRIHT Vf," FROH A ";RIBHTI(AI(K),LEM(A$(K> >-2> 

270 INPUT X» 

280 PRINT "FOR A ";V$J" THE AHSUER UOULD BE "J 

290 INPUT A* 

300 A$=LEFTI(A«,1): IF A$<>'Y" AND AtO"N" THEN 280 

310 IF A$="Y" THEN B«*"N" 

320 IF A»="N" THEN B»="Y" 

330 Z1=VAL<A»(0>> 

340 A»(0)=STR«(Z1+2) 

350 A$(Z1)=A»(K) 



360 A»(Z1M)»"\A"+V$ 

370 A»(K)="\Q"tX$f\"tA*+STR»(Z1+1)+"\"+B*+STR*(Z1)+"\" 

380 60T0 120 

390 REN SUBROUTINE TO PRINT QUESTIONS 

400 Q«=A»(K) 

410 FOR Z=3 TO LEN(Q$) 

415 IF HID»(Q»,Z,1)<>"\" THEN PRINT HID»<Q*,Z,I >;: NEXT Z 

420 INPUT C« 

430 CI=LEFT$(C$,1) 

440 IF C»<>»Y" AND C»<>"N" THEN 410 

450 T»="\"+C* 

455 FOR X=3 TO LEN(0t>-1 

460 IF HID$(Qf,X,2)=T» THEN 480 

470 NEXT X 

475 STOP 

480 FOR Y=X+1 TO LEN(0») 

490 IF HID»(0I,Y,1)="\" THEN 510 

500 NEXT Y 

505 STOP 

510 K=VAL(MID$CQ$,X+2,Y-X-2)> 

520 RETURN 

530 DATA ■4»,"\0D0ES IT SUIH\Y2\N3\","\AFISH" r , '\ABIRD» 

600 PRINT: PRINT "ANIHALS I ALREADY KNOU ARE:" 

605 X=0 

610 FOR I«1 TO 200 

620 IF LEFT»(AJ(I),2K>"\A" THEN 650 

624 PRINT TAB<12»X>; 

630 FOR Z=3 TO LEN(A*(I>) 

640 IF HID$<A»U),Z,1K>»V THEN PRINT HID»(A«(I),Z,1 )J: NEXT Z 

645 X=X+1 J IF X>5 THEN X=0: PRINT 

650 NEXT I 

660 PRINT 

670 PRINT 

680 60T0 120 

999 END 



Awari 
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Awari is an ancient African game 
played with seven sticks and thirty-six 
stones or beans laid out as shown 
above. The board is divided into six 
compartments or pits on each side. In 
addition, there are two special home 
pits at the ends. 

A move is made by taking all of the 
beans from any (non-empty) pit on 
your own side. Starting from the pit to 
the right of this one, these beans are 
'sown' one in each pit working around 
the board anticlockwise. 

A turn consists of one or two moves 
If the last bean of your move is sown in 
your own home you may take a second 
move. 

If the last bean sown in a move lands 
in an empty pit, provided that the 
opposite pit is not empty, all the beans 
in the opposite pit, together with the 
last bean sown are 'captured' and 
moved to the player's home. 

When either side is empty, the game 
is finished. The player with most beans 
in his home has won. 

In the computer version, the board is 
printed as 14 numbers representing the 
14 pits. 

3 3 3 3 3 3 



3 3 3 3 3 3 

The pits on your (lower) side are 
numbered 1-6 from left to right. The 
pits on my (the computer's) side are 
numbered from my left (your right). 

To make a move you type in the 
number of a pit. If the last bean lands in 
your home, the computer types 
'AGAIN?' and you then type in your 
second move. 

The computer's move is typed, 
followed by a diagram of the board in 
its new state. The computer always 
offers you the first move. This is 
considered to be a slight advantage. 

There is a learning mechanism in the 
program that causes the play of the 
computer to improve as it plays more 
games. 

This version of Awari is adopted from 
oneoriginallywrittenbyGeoffWyvillof 
Bradford, Yorkshire, England. 



AUARI 
CREATIVE COHPUTINO HORRISfOUN, NEU JERSEY 
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0AHE OVER 

YOU UIN BY 3 POINTS 
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5 PRINT TAB(34);"AUARI" 

7 PRINT TAB(15);"CREATIVE C0HPUTIN6 HORRISTOUN, NEU JERSEY" 

10 DATA 

15 DIH B<13),GU3),F(50>:READ N 

20 PRINT:P8IHTj£-0 

25 F0RI=0 TO 12:BU)=3:NEXT I 

30 C=0iF(N>-0:B(13>»0:B<4>=0 

35 GOSUB 500 

40 PRINT "YOUR HOVE";:GOSUB 110 

45 IF E=0 THEN 80 

50 IF H=H THEN BOSUB 100 

55 IF E=0 THEN 80 

40 PRINT "HY HOVE IS ";:GOSUB 800 

45 IF E=0 THEN 80 

70 IF H=H THEN PRINT ",";:GOSUB 800 

75 IF E>0 THEN 35 

80 PRINT:PRINT"BAHE OVER" 

85 D=B(6)-B<I3>:IF D<0 THEN PRINT "I UIN BY";-D;"P0INTS"!GQTO 20 

90 N=Ntf;IF D=0 THEN PRINT "DRAUN GAHE":G0T0 20 

95 PRINT "YOU UIN BY" JB;"POINTS":BOTO 20 

100 PRINT "AGAIN"; 

110 INPUT H:IF H<7 THEN IF H>0 THEN H=H-1 :GOTO 130 

120 PRINT "ILLEGAL HOVE"iBOTO 100 

130 IF B(H)=0 THEN 120 

140 H=4:B0SUB 200 

150 GOTO 500 

200 K=H:GOSUB 400 

205 E*0iIF K>4 THEN K=K-7 

210 C*C+1:IF C<9 THEN F(N>=F{N)»6+K 

215 FOR 1=0 TO 5:IF B(I)O0 THEN 230 

220 NEXT I 

225 RETURN 

230 FOR 1=7 TO 12:IF 8(1)00 THEN E=1iRETURN 

235 GOTO 220 

500 PRINT:PRINT" "; 



:PRINT B(6):PRINT 



505 FOR 1=12 TO 7 STEP -1 :OOSUB 580 

510 NEXT I 

515 PRINTiI=13:G0SUB 580 

520 PRINT " "; 

525 FOR 1*0 TO SiGOSUB 580 

530 NEXT I 

535 PRINT:PRINT:RETURN 

580 IF BUK10 THEN PRINT " "j 

5B5 PRINT B(I);;RETURN 

600 P=B(H):B(H)=0 

605 FOR P=P TO 1 STEP -1sH»Ht1:IF H>13 THEN N=H-14 

610 B(H)»B(N)+1:NEXT P 

615 IF B<H)=I THEN IF H04 THEN IF H013 THEN IF B<12-HK>0 THEN 425 

620 RETURN 

625 B(H)=B(H)tB(12-H)*1:B(H)=0!B(12-«)»0:RETURN 

800 D=-99:H=13 

805 FOR 1=0 TO 13:G(I)=B(I) (NEXT I 

BIO FOR J=7 TO 12:IF B(J)«0 THEN 885 

815 G=0:H=JiBOSUB 600 

820 FOR 1=0 TO 5:IF KD'O THEN 845 

825 L'B(I)tI:R=0 

830 IF L>13 THEN L-L-! 4 :R=1 sOO TO 830 

835 IF B(L)=0 THEN IF L06 THEN IF LOU THEN R=B(12-L)+R 

840 IF R>0 THEN 0=R 

845 NEXT I 

850 0-BU3)-B(6>-Q:IF OB THEN 875 

855 K=J:IF K>6 THEN K=K-7 

860 FOR 1=0 TO N-1:IF F(N)»4+K=INT(FU >/6-<7-C) + .1 ) THEN 0=0-2 

870 NEXT I 

875 FOR 1=0 TO 13:B(I)=G(I) :NEXT I 

880 IF 0>=D THEN A=J.-D=0 

885 NEXT J 

890 H=A:PRINT CHR»(42+H);:00T0 200 

900 FOR 1=0 TO N-1:PRINTB(I):NEXT I 

999 END 
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Bagels 



In this game, the computer picks a3- 
digit secret number using the digits to 
9 and you attempt to guess what it is. 
You are allowed up to twenty guesses. 
No digit is repeated. After each guess 
the computer will give you clues about 
your guess as follows: 

PICO One digit is correct, but in 

the wrong place 
FERMI One digit is in the correct 

place 
BAGELS No digit is correct 

You will learn to draw inferences 
from the clues and, with practice, you'll 
learn to improve your score. There are 
several good strategies for playing 
Bagels. After you have found a good 
strategy, see if you can improve it. Or 
try a different strategy altogether and 
see if it is any better. While the program 
allows up to twenty guesses, if you use 
a good strategy it should not take more 
than eight guesses to get any number. 

The original authors of this program 
are D. Resek and P. Rowe of the 
Lawrence Hall of Science, Berkeley, 
California. 

BAGELS 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 

UOULD YOU LIKE THE RULES (YES OR NO)? YES 

I AH THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS 
NY NUMBER AND I UILL GIVE YOU CLUES AS FOLLOUS: 

PICO - ONE DIGIT CORRECT BUT IN THE URONG POSITION 
FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION 
BAOELS - NO DIGITS CORRECT 



O.K. I HAVE A NUHBER IN HIND. 
GUESS It t 
FERHI 
GUESS It 2 



PICU FERHI 
GUESS It 3 
FERMI FERHI 
OUESS II 4 
FERHI FERMI 
GUESS II 5 

you go i inn 



T 123 
? 724 
? 827 
7 927 
7 627 



GUESS a 1 
PICO 

GUESS « 2 
FERMI 
GUESS II 3 
YOU GOT IT! I I 



7 456 
7 123 
7 167 



PLAY AGAIN (YES OR N0>? YES 



O.K. I HAVE A NUMBER IN MIND. 
OUESS II 1 ? 15? 



PLAY AGAIN (YES OR NO)? YES 



O.K. I HAVE A NUHBER IN MIND. 
GUESS It 1 ? 987 



BAGELS 
GUESS II 2 
PICO 

GUESS « 3 
PICO PICO 
GUESS » 4 
PICO 

GUESS It S 
FERMI FERMI 
GUESS II 6 
FERMI FERMI 
GUESS II 7 
FERMI FERHI 
GUESS II 8 
YOU GOT ITIII 



? 454 

? 236 
? 613 
? 327 
7 328. 
? 329 
7 325 



PLAY AGAIN (YES OR NO)? YES 
O.K. I HAVE A NUMBER IN HIND. 



BAGELS 






GUESS II 2 


? 


247 


PICO 






GUESS II 3 


7 


328 


BAGELS 






GUESS II 4 


j 


476 


PICO FERMI 






GUESS II 5 


? 


407 


PICO FERMI 






GUESS 1 6 


7 


740 


PICO FERHI 






GUESS II 7 


t 


704 


PICO PICO 






OUESS II 8 


7 


406 


PICO PICO FERHI 




GUESS II V 


? 


604 


PICO PICO PICO 




GUESS II 10 


? 


460 


YOU GOT IT! 


! ! 




PLAY AGAIN 


(YES 


OR NO)? 


A 4 PDINT BAGELS BUFF!! 


HOPE YOU HAD FUN. BYE. 



5 PRINT 7AB(33);"BA0ELS" 

10 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

15 REM **» BA6LES NUMBER GUESSING GAME 

20 REM »» ORIGINAL SOURCE UNKN0UN BUT SUSPECTED TO BE 

25 REM *** LAURENCE HALL OF SCIENCE, U.C. BERKELY 

30 DIM A1(6),A(3),B(3) 

40 Y=0:T=255 

50 PRINT:PRINT:PRINT 

70 INPUT "MOULD YOU LIKE THE RULES (YES OR NO)"jA» 

90 IF LEFT«<AI,1)-"N" THEN 150 

100 PRINT:PRINT "I AM THINKING OF A THREE-DIGIT NUHBER. TRY TO GUESS" 

110 PRINT "MY NUHBER AND I UILL GIVE YOU CLUES AS F0LL0US:" 

120 PRINT " PICO - ONE BIGIT CORRECT BUT IN THE URONG POSITION" 

130 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION" 

140 PRINT " BAOELS - NO DIGITS CORRECT" 

150 FOR 1=1 TO 3 

160 AU) = INT(10*RND(1>) 

165 IF 1-1=0 THEN 200 

170 FOR J=1 TO I-l 

180 IF A(I)=A(J) THEN 160 

190 NEXT J 

200 NEXT I 

210 PRINT:PRINT "O.K. I HAVE A NUMBER IN HIND." 

220 FOR 1=1 TO 20 

230 PRINT "GUESS '■";!, 

240 INPUT At 

245 IF LEN(A»><>3 THEN 630 

250 FOR 2=1 TO 3:A1 U)=ASC<HID»(A»,Z,1 ) ) :NEXT 1 

260 FOR J=1 TO 3 

270 IF AKJX48 THEN 300 

280 IF A1(J)>57 THEN 300 

285 B(J)°A1(J>-48 

290 NEXT J 

295 GOTO 320 

300 PRINT "UHAT?" 

310 GOTO 230 

320 IF B(1)=B(2) THEN 650 

330 IF B(2)=B(3) THEN 650 

340 IF B(3)=B(1) THEN 650 

350 C=0:D=0 

360 FOR J=1 TO 2 

370 IF A(J)OB(J+l) THEN 390 

380 C*C + 1 

390 IF A(J+1)OB(J) THEN 410 

400 C=C+1 

410 NEXT J 

420 IF A(1)OB(3) IHEN 440 

430 C=Ct1 

440 IF A(3)OB(1) THEN 460 

450 C=C+1 

460 FOR J=1 TO 3 

470 IF A(J)OB(J) THEN 490 

480 D=D+1 

490 NEXT J 

500 IF D=3 THEN 680 

505 IF C=0 THEN 545 

320 FOR J=1 TO C 

530 PRINT "PICO *; 

540 NEXT J 

545 IF D=0 THEN 580 

550 FOR J=1 TO D 

560 PRINT "FERHI "; 

570 NEXT J 

580 IF C+DO0 THEN 600 

590 PRINT "BAGELS"; 

600 PRINT 

605 NEXT I 

610 PRINT "OH UELL" 

615 PRINT "THAT'S TUENTY GUESSES. 

420 GOTO 700 

630 PRINT "TRY GUESSING A THREE-DIGIT NUHBER. ":GOTO 230 

"OH, I FORGOT TO TELL YOU THAT THE NUHBER I HAVE IN MIND" 

"HAS NO TUO DIGITS THE SAHE.":G0T0 230 

"YOU GOT ITIII":PRINT 



MY NUMBER UAS";100*A(1 )+10*A(2)tA(3) 



650 PRINT 

640 PRINT 

680 PRINT 

690 Y=Y+I 

700 INPUT "PLAY AGAIN (YES OR N0)";A» 

720 IF A«="YES" THEN 150 

730 IF Y=0 THEN 750 

740 PRINT:PRINT "A";Y;"P0INT BAGELS BUFF!!" 

750 PRINT "HOPE YOU HAD FUN. BYE." 

999 END 



Banner 



This program creates a large banner 
on a terminal of any message you 
input. The length of the message may 
be as long as a string variable permits 
in your version of BASIC. The letters 
may be any dimension you wish 
although the letter height plus distance 
from left-hand side should not exceed 
6 inches. Experiment with the height 
and width until you get a pleasing 
effect on whatever terminal you are 
using. The permissable letters and 
characters are defined in the data 
statements 899 through 940. 

Many people seem to have trouble 
getting this program to work, however, 
after thorough checking we guarantee 
that the version presented have runs 
correctly. We suspect the problem is 
dependent upon the Basic itself and 
the way it reads and restores data files. 

This program was written by 
Leonard Rosendust of Brooklyn, New 
York. 



CREATIVE COMPUTINB MORRISTOUN, NEU JERSEY 

10 INPUT "H0RIZQNTAL";X 

20 INPUT "VERTICALLY 

2! INPUT "CENTEED";L* 

22 61=0: IF L».:>"P" THEN Gl = 1 

23 INPUT "CHARACTER (TYPE 

29 PRINT "STATEMENT"; 

30 INPUT A» 

35 INPUT "SET PAGE";0« 

40 A=ASC(LEFT*(A»,D) 

50 REM 

60 RED 

70 FOR T = 1 TO LEN(A«) 

80 P*=HIDXA«,T,1> 

90 FOR 0=1 TO 50 

95 READ S*,S<1>,S<2),S(3>,S<4>,S<5),S(6),S<7> 

96 IF P«=" " THEN 812 
100 IF P»=S$ THEN 200 



ALL' IF YOU UANT CHARACTER BEING PRINTED )";«* 



120 NEXT 

200 RESTORE 

201 X«=M« 

202 IF M»="ALL" THEN X$=S» 
205 FOR U=1 TO 7 

210 FOR K=8 TO STEP -1 

230 IF 2"K<S(U) THEN 270 

240 J(9-K>=0 

250 GOTO 280 

270 J(9-K)=1s S(U)=S(U)-2'K 

272 IF S(U>=1 THEN 815 

280 NEXT K 



PRINT: NEXT H 



PRINT: NEXT H 



445 FOR T1=1 TO X 

447 PRINT TAB(<63-4.5*Y>*G1/(LEN(XI>>+1>; 

450 FOR 8=1 TO F(U) 

460 IF J(B)=0 THEN 500 

465 FOR 1=1 TO Ys PRINT XI;: NEXT I 

470 GOTO 600 

500 FOR 1 = 1 TO Y 

510 FOR 11=1 TO LEN<X»> 

520 PRINT " "J: NEXT 11 

530 NEXT I 

600 NEXT B 

620 PRINT 

630 NEXT T1 

700 NEXT U 

750 FOR H=1 TO 2»X: PRINT: NEXT H 

800 NEXT T 

806 FOR H=1 TO 75: 

810 END 

812 FOR H=1 TO 7»X: 

813 GOTO 800 

815 F(U)=9-K: GOTO 445 

899 DATA " ",0,0,0,0,0,0,0 

900 DATA "A", 505, 37, 35, 34, 35, 37, 505 

901 DATA "6", 125, 131, 258, 258, 290, 163, 101 

902 DATA "£",512,274,274,274,274,258,258 

903 DATA "T", 2, 2, 2, 512, 2, 2, 2 

904 DATA "U", 256, 257, 129, 65, 129,257,256 

905 DATA "L", 512, 257, 257, 257, 257, 257, 257 

906 DATA "S",69, 139, 274, 274, 274, 163, 69 

907 DATA "0", 125, 131, 258, 258, 258, 131,125 

908 DATA "N", 512, 7, 9, 17, 33, 193,512 

909 DATA "F", 512, 18, 18, 18, 18, 2, 2 

910 DATA "K", 512, 17, 17, 41, 69, 131, 258 

911 DATA "B", 512, 274, 274, 274, 274, 274, 239 

912 DATA "D", 512, 258, 258, 258, 258, 131, 125 

913 DATA "H", 512, 17, 17, 17, 17, 17, 512 

914 DATA "H",512,7, 13,25, 13,7,512 

915 DATA "?",5,3,2,354,18,11,5 

916 DATA "U", 128, 129,257,257,257, 129, 128 

917 DATA "R", 512, 18, 18, 50, 82, 146, 271 

918 DATA "P\ 512, 18, 18, 18, 18, 18, 15 

919 DATA "Q", 125, 131, 258, 258, 322, 131, 381 

920 DATA "Y", 8, 9, 17, 481, 17, 9, 8 

921 DATA "V", 64, 65, 129, 257, 129, 65, 64 

922 DATA "X", 388, 69, 41 , 17,41 ,69,38B 

923 DATA "Z", 386, 322, 290, 274, 266, 262, 260 

924 DATA "I", 258, 258, 258, 512, 258, 258, 258 

925 DATA "C", 125,131 ,258,258,258,131 ,69 

926 DATA "J", 65, 129,257,257,257, 129,128 

927 DATA "1", 0,0, 261 ,259,512,257,257 

928 DATA "2", 261 ,387,322,290,274,267,261 

929 DATA "»", 69, 41 , 17,512,17,41 ,69 

930 DATA "3", 66, 130, 258, 274, 266, 150, 100 

931 DATA "4", 33, 49, 41, 37, 35, 512, 33 

932 DATA "5", 160, 274, 274, 274, 274, 274, 226 

933 DATA "6", 194, 291 ,293,297,305,289,193 

934 DATA "7", 258, 130, 66, 34, 18, 10,8 

935 DATA "8", 69, 171 ,274,274,274, 171 ,69 

936 DATA "9", 263, 138, 74, 42, 26, 10, 7 

937 DATA "=",41,41,41,41,41,41,41 

938 DATA "! ",1 ,1 ,1 ,384,1 ,1 ,1 

939 DATA "0", 57, 69, 131 ,258,131 ,69,57 

940 DATA ".",1,1,129,449,129,1,1 
1000 STOP 

1002 END 
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CHARACTER (TYPE 'ALL' IF TOU MANT CHARACTER IEIXG PRIttTER? ALL 

STATEHEKTT CREATIVE 

SET PAQE? 
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Basketball 



This program simulates a game of 
basketball between Dartmouth College 
and an opponent of your choice. You 
are the Dartmouth captain and control 
the type of shot and defense during the 
course of the game. 

There are four types of shots: 
1. Long Jump Shot (30 ft.), 2. Short 
Jump Shot (15 ft), 3. Lay Up, and 
4. Set Shot. Both teams use the same 
defense, but you may call it: Press (6), 
Man-to-man (6.5), Zone (7), or None 
(7.5). To change defense, type "0" as 
your next shot. 

Note: The game is biased slightly in 
favor of Dartmouth. The average 
probability of a Dartmouth shot being 
good is 62.95% compared to a 
probability of 61.85% for their oppo- 
nent. (This makes the sample run 
slightly remarkable in that Cornell won 
by a. score of 45 to 42. Hooray for the 
Big Red!) 

Charles Bacheller of Dartmouth 
College was the original author of this 
game. 



BASKETBALL 
CREATIVE COMPUTING HQRRISTOUN, NEU JERSEY 



THIS IS DARTMOUTH COLLEGE BASKETBALL. YOU KILL BE DARTMOUTH 
CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOLLOUSj 1. LONG 
(30 FT.) JUMP SHOT; 2. SHORT (15 FT.) JUMP SHOT; 3. LAY 
UP; 4. SET SHOT. 

BOTH TEAMS UILL USE THE SAME DEFENSE. CALL DEFENSE AS 

FOLLOUS: 6. PRESS; 4.5 MAN-TO MAN; 7. ZONE; 7.5 NONE. 
TO CHANGE DEFENSE, JUST TYPE AS YOUR NEXT SHOT. 

YOUR STARTING DEFENSE UILL BE? 7 

CHOOSE YOUR OPPONENT? CORNELL 

CENTER JUMP 

CORNELL CONTROLS THE TAP. 

JUMP SHOT. 

SHOT IS OFF RIM. 

DARTMOUTH CONTROLS THE REBOUND. 

YOUR SHOT? 2 

JUMP SHOT 

SHOOTER IS FOULED. TUO SHOTS. 

SHOOTER MAKES BOTH SHOTS. 

SCORE: 2 TO 



LAY UP. 

SHOT IS MISSED. 

DARTMOUTH CONTROLS THE REBOUND. 



YOUR SHOT? 3 
LAY UP. 
SHOT IS GOOD. 
SCORE: 4 TO 1 



TUO POINTS. 



LAY UP. 

SHOT IS MISSED. 

DARTMOUTH CONTROLS THE REBOUND. 

LAY UP. 

SHOT IS HISSED. 

DARTMOUTH CONTROLS THE REBOUND. 

YOUR SHOT? 4 

SET SHOT. 

SHOT IS OFF THE RIM. 

CORNELL CONTROLS THE REBOUND. 

SET SHOT. 

SHOT IS HISSED. 

CORNELL CONTROLS THE REBOUND. 

PASS BACK TO CORNELL GUARD. 

JUMP SHOT. 

SHOT IS OFF RIM. 

DARTMOUTH CONTROLS THE REBOUND. 

YOUR SHOT? 2 
JUMP SHOT 
SHOT IS GOOD. 
SCORE: I TO 1 

SET SHOT. 

SHOT IS HISSED. 

CORNELL CONTROLS THE REBOUND. 

PASS BACK TO CORNELL GUARD. 

JUMP SHOT. 

SHOT IS OFF RIM. 

DARTMOUTH CONTROLS THE REBOUND. 

YOUR SHOT? 4 

SET SHOT. 

SHOOTER FOULED. TUO SHOTS. 

SHOOTER HAKES BOTH SHOTS. 

SCORE: 8 TO 1 

JUHP SHOT. 

SHOT IS OFF RIN. 

DARTMOUTH CONTROLS THE REBQUHD. 

YOUR SHOT? 2 
JUMP SHOT 

SHOT IS OFF TARGET. 
REBOUND TO CORNELL 

LAY UP. 

SHOT IS MISSED. 

DARTMOUTH CONTROLS THE REBOUND. 



Later in the game .... 

YOUR SHOT? 4 

SET SHOT. 

SHOT IS GOOD. TUO POINTS. 

SCORE: 3? TO 39 

JUMP SHOT. 
SHOT IS GOOD. 
SCORE: 37 TO 41 

YOUR SHOT? 2 

JUHP SHOT 

SHOT IS OFF TARGET. 

DARTMOUTH CONTROLS THE REBOUND. 

BALL PASSED BACK TO YOU. YOUR SHOT? 1 

JUHP SHOT 

SHOT IS BLOCKED. BALL CONTROLLED BY DARTMOUTH. 

YOUR SHOT? 2 

JUMP SHOT 

SHOOTER IS FOULED. TUO SHOTS. 

SHOOTER HAKES ONE SHOT AND MISSES ONE. 

SCORE: 38 TO 41 

JUMP SHOT. 

SHOT IS OFF RIM. 

DARTMOUTH CONTROLS THE REBOUND. 

YOUR SHOT? 3 

LAY UP. 

SHOT BLOCKED. CORNELL'S BALL. 

JUMP SHOT. 

SHOT IS OFF RIM. 

DARTMOUTH CONTROLS THE REBOUND. 

YOUR SHOT? 

LAY UP. 

SHOT IS GOOD. TUO POINTS. 

SCORE: 40 TO 41 

JUHP SHOT. 

PLAYER FOULED. TUO SHOTS. 
BOTH SHOTS MISSED. 
SCORE: 40 TO 41 



YOUR SHOT? 3 

LAY UP. 

SHOT BLOCKED. 



CORNELL'S BALL. 



JUMP SHOT. 
SHOT IS GOOD. 
SCORE: 40 TO 43 

YOUR SHOT? 2 
JUMP SHOT 

SHOT IS OFF TARGET. 
REBOUNB TO CORNELL 

SET SHOT. 
SHOT IS GOOD. 
SCORE: 40 TO 45 



SET SHOT. 

SHOT IS MISSED. 

DARTHOUTH CONTROLS THE REBOUND. 

YOUR SHOT? 2 
JUHP SHOT 

SHOT IS OFF TARGET. 
REBOUND TO CORNELL 

JUMP SHOT. 

PLAYER FOULED. TUO SHOTS. 

SHOOTER MAKES ONE SHOT AND MISSES ONE. 

SCORE: 2 TO 1 

YOUR SHOT? 1 
JUHP SHOT 
CHARGING FOUL. 



DARTMOUTH LOSES BALL. 



YOUR SHOT? 3 

LAY UP. 

SHOOTER FOULED. TUO SHOTS. 

SHOOTER MAKES BOTH SHOTS. 

SCORE: 10 TO 1 

SET SHOT. 

SHOT IS MISSED. 

CORNELL CONTROLS THE REBOUND. 

SET SHOT. 

SHOT IS GOOD. 

SCORE: 10 TO 3 

YOUR SHOT? 1 
JUMP SHOT 
SHOT IS GOOD. 
SCORE: 12 TO 3 



YOUR SHOT? 2 

JUMP SHOT 

SHOT IS OFF TARGET. 

DARTMOUTH CONTROLS THE REBOUND. 

BALL PASSED BACK TO YOU. YOUR SHOT? 4 

SET SHOT. 

SHOT IS GOOD. TUO POINTS. 

SCORE: 42 TO 45 

LAY UP. 

SHOT IS MISSED. 

DARTMOUTH CONTROLS THE REBOUND. 

YOUR SHOT? 3 

***** END OF GAME ***** 
FINAL SCORE: DARTMOUTH 42 CORNELL 45 
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HORRISTOUN, NEU JERSEY" 



5 PRINT TAB(31);"BASKETBALL" 

7 PRINT TABU5);"CREATIVE COMPUTING 

8 PRINT:PRINT:PRINT 
10 PRINT "THIS IS DARTHOUTH COLLEGE BASKETBALL. YOU UILL BE DARTMOUTH 

CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOLLOUS: 1. LONG" 

(30 FT.) JUHP SHOT; 2. SHORT (15 FT.) JUHP SHOT; 3. LAY" 

UP; 4. SET SHOT." 
BOTH TEAHS UILL USE THE SAHE DEFENSE. CALL DEFENSE AS" 
FOLLOUS: 6. PRESS; 6.5 HAN-TO NAN; 7. ZONE; 7.5 NONE." 

TO CHANGE DEFENSE, JUST TYPE AS YOUR NEXT SHOT." 
YOUR STARTING DEFENSE UILL BE";D:IF DC6 THEN 2010 



20 PRINT 
30 PRINT 
40 PRINT 
60 PRINT 
70 PRINT 
72 PRINT 
76 INPUT 

79 PRINT 

80 INPUT "CHOOSE YOUR OPPONENT" J0» 
370 PRINT "CENTER JUHP" 
390 IF RND(1)> 3/5 THEN 420 
400 PRINT 0«;" CONTROLS THE TAP." 
410 GOTO 3000 

420 PRINT "DARTHOUTH CONTROLS THE TAP. 
425 PRINT 

430 INPUT "YOUR SHOT";Z 
440 P=0 

445 IF ZOINT(Z) THEN 455 

446 IF Z<0 OR Z>4 THEN 455 

447 60TO 460 

455 PRINT "INCORRECT ANSUER. RETYPE I 
460 IF RNDUK.5 THEN 1000 

4B0 IF T<100 THEN 1000 

490 PRINT 

491 IF Sd)OS(O) THEN 510 

492 PRINT * ♦♦»»« END OF SECOND HALF **»**" 

493 PRINT "SCORE AT END OF REDULATION TINE:" 

494 PRINT " DARTH0UTH";S(1);0»;S(O) 

495 PRINT 

496 PRINT "BEGIN TUO MINUTE OVERTIHE PERIOD" 

499 T=93 

500 GOTO 370 

510 PRINT " *»»»» END OF 6AHE *****" 

515 PRINT "FINAL SCORE: DARTM0UTH";S<1 );0«;S(0> 

520 STOP 

600 PRINT 

610 PRINT " *♦« TUO HINUTES LEFT IN THE GAHE I 

620 PRINT 

630 RETURN 

1000 ON Z GOTO 1040,1040 

1030 GOTO 1300 

1040 T=T+1 

1041 IF T=50 THEN 8000 

1042 IF T«»2 THEN 1046 

1043 GOTO 1050 
1046 60SUB 600 

1050 PRINT "JUHP SHOT" 

1060 IF RND(1)>.341*D/8 THEN 1090 

1070 PRINT "SHOT IS GOOD." 

1075 GOSUB 7000 

1085 GOTO 3000 

1090 IF RND(t». 682*0/8 THEN 1200 

1100 PRINT "SHOT IS OFF TAROET." 

1105 IF D/6»RND<1)>.45 THEN 1130 

1110 PRINT "DARTHOUTH CONTROLS THE REBOUND." 

1120 GOTO 1145 

1130 PRINT "REBOUND TO ";0» 

1140 GOTO 3000 

1145 IF RND(1)>.40 THEN 1158 

1150 GOTO 1300 

1158 IF D=6 THEN 5100 

1160 PRINT "BALL PASSED BACK TO YOU. "; 

1170 GOTO 430 

1180 IF RND(1)>.9 THEN 1190 

1185 PRINT "PLAYER FOULED, TUO SHOTS. " 

1187 GOSUB 4000 

1188 GOTO 3000 

1190 PRINT "BALL STOLEN. ";0$;"'S BALL." 

1195 GOTO 3000 

1200 IF RND(1)>.7B2*D/8 THEN 1250 

1210 PRINT "SHOT IS BLOCKED. BALL CONTROLLED BY 

1230 IF RND(1)>.5 THEN 1242 

1235 PRINT "DARTHOUTH." 

1240 GOTO 430 

1242 PRINT 0«;"." 

1245 GOTO 3000 

1250 IF RND(1)>.843*D/8 THEN 1270 

1255 PRINT "SHOOTER IS FOULED. TUO SHOTS." 

1260 GOSUB 4000 

1265 GOTO 3000 

1270 PRINT "CHAR6IN8 FOUL. DARTHOUTH LOSES BALL 

1280 GOTO 3000 

1300 T=T+1 

1301 IF T=50 THEN 8000 

1302 IF T=92 THEN 1304 

1303 GOTO 1305 

1304 GOSUB 600 




GOTO 430 



1305 IF Z»0 THEN 2010 

1310 IF Z>3 THEN 1700 

1320 PRINT "LAY UP." 

1330 IF 7/D*RND(1)>.4 THEN 1360 

1340 PRINT "SHOT IS GOOD. TUO POINTS." 

1345 GOSUB 7000 

1355 GOTO 3000 

1360 IF 7/D*RND(1)>.7 THEN 1500 

1370 PRINT "SHOT IS OFF THE RIH." 

1300 IF RND(1)>2/3 THEN 1415 

1390 PRINT 0»;" CONTROLS THE REBOUND." 
) 

1400 GOTO 3000 

1415 PRINT "DARTHOUTH CONTROLS THE REBOUND." 

1420 IF RND(1».4 THEN 1440 

1430 GOTO 1300 

1440 PRINT "BALL PASSED BACK TO YOU."; 

1450 GOTO 430 

1500 IF 7/D*RND(1)>.875 THEN 1600 

1510 PRINT "SHOOTER FOULED. TUO SHOTS." 

1520 GOSUB 4000 

1530 GOTO 3000 

1600 IF 7/D»RND(1)>.925 THEN 1630 

1610 PRINT "SHOT BLOCKED. ";0»;"'S BALL." 

1620 60T0 3000 

1630 PRINT "CHARGING FOUL. DARTHOUTH LOSES 

1640 GOTO 3000 

1700 PRINT "SET SHOT." 

1710 GOTO 1330 

2010 INPUT "YOUR NEU DEFENSIVE. ALIGNMENT IS" 

2030 IF D<6 THEN 2010 

2040 GOTO 425 

3000 P=l 

3005 !=T+1 

3008 IF T=50 THEN 8000 

3012 GOTO 3018 

3015 GOSUB 600 

3018 PRINT 

3020 Z1=10/4*RND<1)+1 

3030 IF Zl>2 THEN 3500 

3040 PRINT "JUHP SHOT." 

3050 IF 8/D»RND(1)>.35 THEN 3100 

3060 PRINT "SHOT IS GOOD." 

3080 GOSUB 6000 

3090 GOTO 425 

3100 IF 8/D«RND(1)>.75 THEN 3200 

3105 PRINT "SHOT IS OFF RIM." 

3110 IF D/6*RND(1)>.5 THEN 3150 

3120 PRINT "DARTHOUTH CONTROLS THE REBOUND." 

3130 GOTO 425 

3150 PRINT 0»;" CONTROLS THE REBOUND. 

3160 IF D=6 THEN 5000 

3165 IF RND(1)>.5 THEN 3175 

3168 PRINT "PASS BACK TO ";0$;" GUARD 

3170 GOTO 3000 

3175 GOTO 3500 

3200 IF B/D*RND<1)>.9 FHEN 3310 

3210 PRINT "PLAYER FOULED. TUO SHOTS 

3220 GOSUB 4000 

3230 GOTO 425 

3310 PRINT "OFFENSIVE FOUL. DARTMOUTH'S BALL 

3320 GOTO 425 

3500 IF Z1>3 THEN 3800 

3510 PRINT "LAY UP." 

3520 IF 7/D*RND(1)>.413 THEN 3600 

3530 PRINT "SHOT IS GOOD." 

3540 GOSUB 6000 

3550 GOTO 425 

3600 PRINT "SHOT IS MISSED." 

3610 60T0 3110 

3800 PRINT "SET SHOT." 

3810 GOTO 3520 

4000 REM FOUL SHOOTING 

4010 IF RND(1)>.49 THEN 4050 

4020 PRINT "SHOOTER MAKES BOTH SHOTS. 

4030 S(1-P)=S<1-P>+2 

4040 GOSUB 6010 

4041 RETURN 




4050 


IF RND(1)>.75 THEN 4100 








4060 


PRINT "SHOOTER MAKES ONE 


SHOT 


AND 


HISSES ONE." 


4070 


S(1-P)=S(1-P)+1 








4080 


GOTO 4040 








4100 


PRINT "BOTH SHOTS HISSED 


» 






4110 


GOTO 4040 








5000 


IF RND(1>>.73 THEN 5010 








5005 


GOTO 3165 








5010 


PRINT "BALL STOLEN. EAS1 


LAY 


UP 


FOR DARTHOUTH 


5015 


60SUB 7000 








5030 


GOTO 3000 








BALL 


." 








5100 


IF RND(1)>.6 THEN 5120 








5110 


GOTO 1160 








5120 


PRINT "PASS STOLEN BY ";0»;" 


EASY 


LAYUP." 


5130 


GOSUB 6000 








5140 


GOTO 425 








6000 


S(0)=S<0)+2 








6010 


PRINT "SCORE: ";S(1);"fO' 


;s(0> 




6020 


RETURN 








7000 


S(l)=S(1)+2 








7010 


GOSUB 6010 








7020 


RETURN 








8000 


PRINT " ***** END OF FIRST 


HALF 


*****" 


8010 


PRINT "SCORE: DARTHOUTH"; 


sm 


o$; 


BIO) 


8015 


PRINT 








8016 


PRINT 








8020 


GOTO 370 








???? 


END 
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Batnum 



The game starts with an imaginary 
pile of objects, coins for example. You 
and your opponent (the computer) 
alternately remove objects from the 
pile. You specify in advance the 
minimum and maximum number of 
objects that can be taken on each turn. 
You also specify in advance how 
winning is defined: 1. To take the last 
object or 2. To avoid taking the last 
object. You may also determine 
whether you or the computer go first. 

The strategy of this game is based on 
modulo arithmetic. If the maximum 
number of objects a player may remove 
in a turn is M, then to gain a winning 
position a player at the end of his turn 
must leave a stack of 1 modulo (M+1) 
coins. If you don't understand this, play 
the game 23 Matches first, then BAT- 
NUM, and have fun! 

BATNUM is a generalized version of 
a great number of manual remove-the- 
object games. The original computer 
version was written by one of the two 
originators of the BASIC language, 
John Kemeny of Dartmouth College. 



BATNUN 
CREATIVE CDHPUTING MORRISTOUN, NEU JERSEY 



THIS PROORAH IS A 'BATTLE OF NUMBERS' 
GAHE, UHERE THE COMPUTER IS YOUR OPPONENT 

THE GAME STARTS UITH AN ASSUMED PILE OF OBJECTS. 
YOU AND YOUR OPPONENT ALTERNATELY REMOVE OBJECTS FROM 
THE PILE. UIMHIHB IS DEFINED IN ADVANCE AS TAKING THE 
LAST OBJECT OR NOT. YOU CAN ALSO SPECIFY SOHE OTHER 
BEGINNING CONDITIONS. DON'T USE ZERO, HOUEVER, IN 
PLAYIN6 THE GAHE. 

ENTER PILE SIZE? 23 

ENTER UIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST: 7 2 

ENTER MIN AND MAX T 1,3 

ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST ? 2 

YOUR HOVE ? 2 

COMPUTER TAKES 1 AND LEAVES 20 

YOUR MOVE ? 3 

COHPUTER TAKES 1 AND LEAVES 16 

YOUR HOVE 1 3 

COMPUTER TAKES 1 AND LEAVES 12 

YOUR MOVE ? 3 

COMPUTER TAKES 1 AND LEAVES 8 

YOUR MOVE ? 3 

COMPUTER TAKES 1 AND LEAVES 4 

YOUR MOVE ? 3 

COMPUTER TAKES I AND LOSES. 



10 PRINT TAB(33);"BATNUH" 

20 PRINT TAB<15);"CREATIVE C0MPUTIN6 MORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

110 PRINT "THIS PROGRAM IS A 'BATTLE OF NUMBERS'" 

120 PRINT "GAME, UHERE THE COHPUTER IS YOUR OPPONENT" 

130 PRINT 

140 PRINT "THE GAHE STARTS UITH AN ASSUHED PILE OF OBJECTS." 

150 PRINT "YOU AND YOUR OPPONENT ALTERNATELY REMOVE OBJECTS FROM" 

160 PRINT "THE PILE. UINNING IS DEFINED IN ADVANCE AS TAKING THE" 

170 PRINT "LAST OBJECT OR NOT. YOU CAN ALSO SPECIFY SOME OTHER" 

180 PRINT "BEGINNING CONDITIONS. DON'T USE ZERO, HOUEVER, IN" 

190 PRINT "PLAYING THE 0AME." 



200 PRINT 

210 GOTO 330 

220 FOR 1=1 TO 10 

230 PRINT 

240 NEXT I 

330 INPUT "ENTER PILE SIZE"JN 

350 IF NO0 THEN 370 

360 GOTO 330 

370 IF NOINT(N) THEN 220 

380 IF N<1 THEN 220 

390 INPUT "ENTER UIN OPTION - 1 TO TAKE LAST, 2 TO AVUID LAST: ";M 

410 IF H-1 THEN 430 

420 IF H<>2 THEN 3?0 

430 INPUT "ENTER HIN AND MAX ";A,B 

450 IF A>B THEN 430 

460 IF A<1 THEN 430 

470 IF AOINT(A) THEN 430 

480 IF BOINT(B) THEN 430 

490 INPUT "ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST ";S 

310 IF S«=1 THEN 530 

520 IF S<>2 THEN 490 

530 C=AtB 

540 IF S=2 THEN 570 

550 G0SUB 600 

560 IF U-1 THEN 220 

570 GOSUB 810 

580 IF 0=1 THEN 220 

590 GOTO 550 

600 0=N 

610 IF M*1 THEN 630 

620 0=0-1 

630 IF M=1 THEN 680 

640 IF N>A THEN 720 

650 U=1 

660 PRINT "COMPUTER TAKES";N;"AND LOSES." 

670 RETURN 

680 IF N>B THEN 720 

690 U=1 

700 PRINT "COMPUTER TAKES"jN;"AND UINS." 

710 RETURN 

720 P=0-C*INT(0/C) 

730 IF P>=A THEN 750 

740 P=A 

750 IF P<=B THEN 770 

760 P=B 

770 N=N-P 

780 PRINT "COMPUTER TAKES";Pj"AND LEAVES";N 

790 U»0 

800 RETURN 

810 PRINT "YOUR MOVE "; 

820 INPUT P 

830 IF POO THEN 870 

840 PRINT "I TOLD YOU NOT TO USE ZERO! COMPUTER UINS BY FORFEIT." 

850 U=t 

860 RETURN 

870 IF POINT(P» THEN 920 

880 IF P>=A THEN 910 

890 IF P=N THEN 960 

900 60TO 920 

910 IF P<=B THEN 940 

920 PRINT "ILLEGAL MOVE, REENTER IT "; 

930 GOTO 820 

940 N«N-P 

950 IF NOO THEN 1030 

960 IF M«l THEN 1000 

970 PRINT "TQUBH LUCK, YOU LOSE." 

980 U=1 

990 RETURN 

1000 PRINT "CONGRATULATIONS, YOU UIN." 

1010 U»1 

1020 RETURN 

1030 IF N>-0 THEN 1060 

1040 N=N+P 

1050 60T0 920 

1060 U=0 

1070 RETURN 

1080 END 
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Battle 



BATTLE is based on the popular 
game Battleship which is primarily 
played to familiarize people with the 
location and designation of points on a 
coordinate plane. 

BATTLE first randomly sets up the 
bad guys' fleet disposition on a 6 by 6 
matrix or grid. The fleet consists of six 
ships: Two destroyers (ships number 1 
and 2) which are two units long, two 
cruisers (ships number 3 and 4) which 
are three units long and two aircraft 
carriers (ships number 5 and 6) which 
are four units long. The program then 
prints out this fleet disposition in a 
coded or disguised format (see the 
sample computer print-out). You then 
proceed to sink the various ships by 
typing in the coordinates (two digits, 
each from 1 to 6, separated by a 
comma) of the place where you want to 
drop a bomb, if you'll excuse the 
expression. The computer gives the 
appropriate responses (splash, hit, 
etc.) which you should record on a 6 by 
6 matrix. You are thus building a 
representation of the actual fleet dis- 
position which you will hopefully use to 
decode the coded fleet disposition 
printed out by the computer. Each time 
a ship is sunk, the computer prints out 
which ships have been sunk so far and 
also gives you a "SPLASH/HIT 
RATIO." 

The first thing you should learn is 
how to locate and designate positions 
on the matrix, and specifically the 
difference between "3,4" and "4,3." Our 
method corresponds to the location of 
points on the coordinate plane rather 
than the location of numbers in a 
standard algebraic matrix: the first 
number gives the column counting 
from left to right and the second 
number gives the row counting from 
bottom to top. 

The second thing you should learn 
about is the splash/hit ratio. "What is a 
ratio?" A good reply is "It's a fraction or 
quotient." Specifically, the splash/hit 
ratio is the number of splashes divided 
by the number of hits. If you had 9 
splashes and 15 hits, the ratio would be 
9/15 or 3/5, both of which are correct. 
The computer would give this 
splash/hit ratio as .6. 



The main objective and primary 
educational benefit of BATTLE comes 
from attempting to decode the bad 
guys' fleet disposition code. To do this, 
you must make a comparison between 
the coded matrix and the actual matrix 
which you construct as you play the 
game. 

The original author of both the 
program and these descriptive notes is 
Ray Westergard of the Lawrence Hall 
of Science, Berkeley, California. 
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BATTLE 
CREATIVE COhPUTING HORRISTOUN, NEU JERSEY 



THE FOLLC 


UIN 


3 C 


ODE OF 


THE BAD GUYS' 


FLEET DISPOSITION 


HAS BEEN 


CAPTURED BUT 


NOT DECODED: 







2 


2 


6 






4 4 


4 


i 









3 


6 












5 6 








3 






S 1 








3 






5 1 








3 






DE-CODE IT AND 


USE IT 


IF YOU CAN 




BUT KEEP 


THE 


BE 


-C0DIN8 METHOD A SECRET. 


START 0AHE 










1 1,1 












A DIRECT 


HIT 


ON 


SHIP 


NUHBER i 




TRY A6AM 


. 










1 M 












A DIRECT 


HIT 


ON 


SHIP 


NUNBER 3 




TRY ABAIt 


. 










T 5,1 












A DIRECT 


HIT 


ON 


SHIP 


NUHBER 3 
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TRY AGAIN. 

7 4,1 

A DIRECT HIT ON SHIP NUHBER 3 

AND YOU SUNK IT. HURRAH FOR THE OOOD BUYS. 

SO FAR, THE BAD GUYS HAVE LOST 

DESTROYER(S), I CRUISER(S), AND AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS 

T 2,1 

SPLASH I TRY AGAIN. 

7 1,2 

A DIRECT HIT ON SHIP NUHBER 2 

TRY AGAIN. 

7 1,3 

A DIRECT HIT ON SHIP NUHBER 2 

AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 

SO FAR, THE BAD GUYS HAVE LOST 

1 DESTROYER(S), 1 CRUISER(S), AND AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .166667 

7 3,7 

INVALID INPUT. TRY AGAIN. 

7 3,6 

A DIRECT HIT ON SHIP NUHBER 5 

TRY AGAIN. 

7 4, 4 

A DIRECT HIT ON SHIP NUHBER 5 

TRY AGAIN. 

7 5,6 

A DIRECT HIT ON SHIP NUHBER 5 

TRY AGAIN. 

7 4,4 

A DIRECT HIT ON SHIP NUHBER 1 

TRY AGAIN. 

7 6,6 

A DIRECT HIT ON SHIP NUHBER 5 

AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 

SO FAR, THE BAD GUYS HAVE LOST 

1 DESTROYER(S), 1 CRUISER(S), AND 1 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .0909091 
7 3,4 

SPLASH I TRY AGAIN. 
7 2,2 

A DIRECT HIT ON SHIP NUHBER 6 
TRY AGAIN. 
7 3,3 

A DIRECT HIT ON SHIP NUHBER 6 
TRY AGAIN. 
7 4,4 

A DIRECT HIT ON SHIP NUHBER 6 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
SO FAR, THE BAD GUYS HAVF LOST 

1 DESTROYER(S), 1 CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .142857 

7 4,4 

YOU ALREADY PUT A HOLE IN SHIP NUHBER 1 AT THAT POINT. 

SPLASHI TRY AGAIN. 

7 5,5 

A DIRECT HIT ON SHIP NUHBER 1 

AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 

SO FAR, THE BAD GUYS HAVE LOST 

2 DESTROYER(S), I CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .2 

T 2,3 

A DIRECT HIT ON SHIP NUHBER 4 

TRY AGAIN. 

7 2,4 

A DIRECT HIT ON SHIP NUHBER 4 

TRY AGAIN. 

7 2,5 

A DIRECT HIT ON SHIP NUHBER 4 

AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 

SO FAR, THE BAD GUYS HAVE LOST 

2 DESTROYER(S), 2 CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YQUR CURRENT SPLASH/HIT RATIO IS .164467 

YOU HAVE TOTALLY UIPED OUT THE BAD GUYS' FLEET 
UITH A FINAL SPLASH/HIT RATIO OF .146447 

• MM*********************** 



5 PRINT TAB(33);"BATTLE" 

7 PRINT TAB(t5);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

10 REH — BATTLE URITTEN BY RAY UESTERGARD 10/70 

20 REH COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. 

30 REH PRODUCED AT THE LAURENCE HALL OF SCIENCE, BERKELEY 

40 REH DIH F(6,6),H(6,6),A(4XB(4),C(6),L(3) 

50 FOR X«1 TO 6 

51 FOR Y«1 TO 6 

52 F<X,Y)«0 

53 NEXT Y 

54 NEXT X 

60 FOR 1*1 TO 3 

70 N=4~I 

SO FOR J=1 TO 2 

90 A=INT(6«RND(1)+1) 

100 B«INT(4*RND(1)+1> 

110 D"INT(4*RND<1)+1) 

120 IF F(A,B)>0 THEN 90 

130 H*0 

140 ON D SOTO 150,340,550,740 

150 B(1)=B 

140 B<2)=7:B(3>=? 

170 FOR KM TO N 

180 IF H>1 THEN 240 

190 IF B(K)'6 THEN 230 

200 IF F(A,B(K) + 1»0 THEN 230 

210 B(Kt1)*B(KX1 

220 SOTO 280 

230 H-2 

240 IF B(1KB(2) AND B(1XB(3) THEN Z=B(1) 

242 IF B(2XB(1> AND B<2XB<3> THEN Z=B(2) 

244 IF B(3XB(1) AND B(3XB(2) THEN Z=B<3> 

250 IF Z=l THEN 90 

260 IF F(A,Z-1)>0 THEN 90 

270 B(Kt1>»Z-t 

280 NEXT K 

290 F(A,Bl=9-2*I-J 

300 FOR K=l TO N 

310 F(A,B(K+1))-F(A,B) 

320 NEXT K 

330 GOTO 990 

340 A(I)*A 

350 B(1)»B 

340 A<2)«0:A(3)=0sB<2>»0iB<3>=0 

370 FOR K«1 TO N 

380 IF H>1 THEN 460 

390 IF A(K)«1 OR B(K)=1 THEN 450 

400 IF F(A(K)-1,B(K)-1)>0 THEN 450 

410 IF F(A<K)-l,B(K))>0 AND F(A(K)-1 ,B(K))=F(A<K),B<K>-1 ) THEN 450 

420 A(K+1)=A(K)-1 

430 B(K+1)«B(K)-1 

440 GOTO 530 

450 H=2 

460 IF A(1)>A(2) AND A(1)>A(3> THEN Z1«A(1) 

462 IF A(2)>A(1) AND A(2)>A(3) THEN Z1=A(2) 

464 IF A(3)>A(I) AND A<3)>A(2) THEN Z1'A(3> 

470 IF B(I)>B(2) AND B(1)>B(3) THEN Z2=B(1) 

474 IF B(2»B(1> AND B(2)>B(3) THEN Z2»B<2> 

474 IF B(3)>B(1) AND B(3)>B(2) THEN Z2»B<3> 

480 IF Z1-6 OR Z2-6 THEN 90 

490 IF F<Z1*1,Z2H»0 THEN 90 

500 IF F1Z1,Z2*1»Q AND F<Zt,Z2*U>F(Z1 + 1,Z2> THEN 90 

510 A(K+1)«Z1H 

520 B(K+1>«Z2M 

530 NEXT K 

540 GOTO 950 

550 A(t)'A 

540 A(2)=7lA(3)-7 

570 FOR K-1 TO N 

580 IF H>1 THEN 640 

590 IF A(K)'6 THEN 630 

600 IF F(A(K)t1,B)>0 THEN 630 

610 A(K*1)«A(KX1 

620 GOTO 680 

630 H=2 

640 IF A<1XA(2) AND A(1XA(3) THEN Z=A(1) 

642 IF A(2XA(1) AND A(2XA(3) THEN Z*A(2> 

644 IF A(3XA(1) AND A(3XA(2) THEN Z=A<3> 
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<a»4ttP&o~e> 



650 IF Z = l THEN 90 

440 IF F(Z-1,B)>0 THEN 90 

670 A(K*U=Z-1 

480 NEXT K 

490 F<A,B)-9-2»I-J 

700 FOR K«1 TO N 

710 F(A(Kil),B)«F(fl,B) 

720 NEXT K 

730 BOTO 990 

740 A(H=A 

750 B(1)=B 

740 A(2)=7:A<3>=7 

770 B(2>=OiB<3>=0 

780 FOR K=l TO N 

790 IF MM THEN 870 

800 IF AUO-6 OR B(K)°1 THEN 840 

810 IF F(A<K>t1,B<K>-1»0 THEN 840 

820 IF F(A(K)tl,B(K))>0 AND F(A(K>+1 ,B<K) )=F<A(K),B(K)-1 ) THEN 860 

830 A(K+1)=A(K)+t 

840 B(Kt1)*B(K>-1 

850 60T0 940 

840 N»2 

870 IF A(1XA(2) ANO A(1XA<3> THEN ZI=A(1) 

872 IF A(2XA(1) AND A(2XA(3> THEN Z1=A(2) 

874 IF A(3XA(1) AND A(3XA(2) THEN ZI«A(3) 

880 IF B(I)>B(2) AND B(1)>B<3) THEN Z2=B(1) 

882 IF B(2)>B(t) AND B(2)>B(3) THEN Z2=B<2> 

884 IF B(3)>B(1) AND B(3)>B(2) THEN Z2=B(3I 

890 IF Z1=1 OR Z2=4 THEN 90 

900 IF F<Z1-1,Z2+1>>0 THEN 90 

910 IF F<Z1,Z2»1)>0 AND F(Z1 ,Z2+1 )=F(ZI-1 ,Z2) THEN 90 

920 A(K+1)=Z1-1 

930 B(KtH=Z2tI 

940 NEXT K 

950 F(A,B)=9-2*I-J 

940 FOR K*1 TO N 

970 F<A<Ktt),B(K+1)>-F(A,B> 

980 NEXT K 

990 NEXT J 

1000 NEXT I 

1010 PRINT 

1020 PRINT "THE FOLLOUINB CODE OF THE BAD GUYS' 

1030 PRINT "HAS BEEN CAPTURED BUT NOT DECODED!" 

1040 PRINT 

1050 FOR 1=1 TO 4 

1051 FOR J=1 TO 4 

1052 HU,J>=F(J,I> 

1053 NEXT J 

1054 NEXT I 

1040 FOR 1=1 TO 4 

1041 FOR J=1 TO 6 

1042 PRINT HU,J>; 

1043 NEXT J 

1064 PRINT 

1065 NEXT I 
1070 PRINT 

1080 PRINT "BE-CODE IT AND USE IT IF YOU CAN" 
1090 PRINT "BUT KEEP THE DE-CQDINB METHOD A SECRET. 
1100 PRINT 



FLEET DISPOSITION" 



1110 FOR 1=1 TO 4 

1111 FOR J=1 TO 4 

1112 H(I,J>=0 

1113 NEXT J 

1114 NEXT I 

1120 FOR 1=1 TO 3 

1121 L(I)=0 

1122 NEXT I 

1130 C(1)=2:C(2)=2 

1140 C(3>-1 :C(4)»1 

1150 C<5)-0:C(4)-0 

1140 3»0:H*0 

1170 PRINT "START SAME" 

1180 INPUT X,Y 

1190 IF X<1 OR X>4 OR INT(X)OABS(X) THEN 1210 

1200 IF Y>0 AND Y<7 AND INT(Y)=ABS(Y) THEN 1230 

1210 PRINT "INVALID INPUT. TRY AGAIN." 

1220 SOTO 1180 

1230 R«7-Y 

1240 C=X 

1250 IF F(R,C)>0 THEN 1290 

1240 S=Stl 

1270 PRINT "SPLASHI TRY AGAIN." 

1280 BOTO 1 180 

1290 IF C(F(R,C)X4 THEN 1340 

1300 PRINT "THERE USED TO BE A SHIP AT THAT POINT, BUT YOU SUNK IT. 

1310 PRINT "SPLASHI TRY AOAIN." 

1320 S=S+I 

1330 OOTO 1180 

1340 IF H(R,C)>0 THEN 1420 

1350 H=Ht1 

1340 H(R,C)=F(R,C) 

1370 PRINT "A DIRECT HIT ON SHIP NUNBER ";F(R,C1 

1380 C(F(R,C))*C(F(R,C))+I 

1390 IF C(F(R,C>>>-4 THEN 1470 

1400 PRINT "TRY AOAIN." 

1410 GOTO 1180 

1420 PRINT "YOU ALREADY PUT A HOLE IN SHIP NUMBER";F(R,C); 

1430 PRINT "AT THAT POINT." 

1440 PRINT "SPLASHI TRY AGAIN." 

1450 S=S+! 

1440 OOTO 1180 

1470 L((INT(F(R,C)-1)/2)t1).L((INT(F(R,C)-1)/2)+1)+1 

1480 PRINT "AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS." 

1490 PRINT "SO FAR, THE BAD BUYS HAVE LOST" 

1500 PRINT L(l);"DESTROYER(S), »;L(2);"CRUISER(S) , AND "; 

1510 PRINT L(3)J"AIRCRAFT CARRIER(S)." 

1520 PRINT "YOUR CURRENT SPLASH/HIT RATIO IS";S/H 

1530 IF (L(1!tL(2)tL(3)X4 THEN 1180 

1540 PRINT 

1550 PRINT "YOU HAVE TOTALLY UIPED OUT THE BAD GUYS' FLEET" 

1560 PRINT "U1TH A FINAL SPLASH/HIT RATIO OF";S/H 

1570 IF S/H>0 THEN 1590 

1580 PRINT "CONGRATULATIONS — A DIRECT HIT EVERY TIME." 

1590 PRINT 

1400 PRINT "»»«*»•*»*»*»«*♦»*»»**»♦*»*»*" 

1410 PRINT 

1420 GOTO 50 

1630 END 
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BI3CKJJ3CK 



This is a simulation of the card game 
of Blackjack or 21, Las Vegas style. 
This rather comprehensive version 
allows for up to seven players. On each 
hand each player may get another card 
(a hit), stand, split a hand in the event 
two identical cards were received or 
double down. Also, the dealer will ask 
for an insurance bet if he has an ex- 
posed ace. 

Cards are automatically reshuffled 
as the 51st card is reached. For greater 
realism, you may wish to change this to 
the 41st card in Line 110. Actually, 
fanatical purists will want to modify the 
program so it uses three decks of cards 
instead of just one. 

This program originally surfaced at 
Digital Equipment Corp.; the author is 
unknown. 



BLACKJACK 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 

DO YOU UANT INSTRUCTIONS? YES 

THIS IS THE GAHE OF 21. AS MANY AS 7 PLAYERS MAY PLAY THE 
GAHE. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE 
PLAYERS' BETS SHOULD BE TYPED IN. THE CARDS UILL THEN BE 
DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE 
FIRST RESPONSE SHOULD BE EITHER 'D', INDICATING THAT THE 
PLAYER IS DOUBLING DOUN, 'S', INDICATING THAT HE IS 
STANDING, 'H', INDICATING HE UANTS ANOTHER CARD, OR '/', 
INDICATING THAT HE UANTS TO SPLIT HIS CARDS. AFTER THE 
INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 'S' OR 
'H', UNLESS THE CARDS UERE SPLIT, IN UHICH CASE DOUBLINO 
DOUN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR 
BLACKJACK, THE INITIAL RESPONSE SHOULD BE 'S'. 
NUMBER OF PLAYERS? 2 
RESHUFFLING 



It 1 ? 200 






N 2 T ISO 






PLAYER 1 


2 


DEALER 


? 


i 


9 


8 


J 




PLAYER 1 


? S 




TOTAL IS 


17 




PLAYER 2 ' 


? S 




TOTAL IS 


16 




DEALER HAS A 3 


CONCEALED FOR A TOTAL OF 12 


DRAUS Q 


...BUSTEB 


PLAYER 1 


UINS 


200 T0TAL= 200 


PLAYER 2 


UINS 


150 TOTAL' 150 


DEALER'S 


TOTAL*' 


-350 


BETS 






It 1 ? 300 






II 2 ? 200 






PLAYER 1 


2 


DEALER 


K 


Q 


2 


2 


4 





PLAYER 1 ? H 






RECEIVED A 3 


HIT? S 




TOTAL IS 15 






PLAYER 2 ? H 






RECEIVED A 3 


HIT? S 




TOTAL IS 17 






DEALER HAS A J 


CONCEALED FOR A TOTAL OF 12 


DRAUS Q ...BUSTED 




PLAYER 1 UINS 


300 T0TAL= 


500 


PLAYER 2 UINS 


200 T0TAL= 


350 


DEALER'S T0TAL= 


-850 




BETS 






II 1 ? 500 






H 2 ? 500 






PLAYER 1 2 


DEALER 




K 5 


4 




6 ? 






PLAYER 1 7 H 






RECEIVED A J 


...BUSTED 




PLAYER 2 ? H 






RECEIVED AN A 


HIT? H 




RECEIVED A 7 


...DUSTED 




DEALER HAD A 2 


CONCEALED 




PLAYER 1 LOSES 


500 TOTAL= 





PLAYER 2 LOSES 


500 TOTAL* 


-150 


DEALER'S T0TAL= 


150 




BETS 






N 1 ? 500 






II 2 ? 50 






PLAYER 1 2 


DEALER 




6 7 


7 




10 J 






PLAYER 1 ? S 






TOTAL IS H 






PLAYER 2 ? S 






TOTAL IS 17 






DEALER HAS A 5 


CONCEALED FOR A TOTAL OF 12 


DRAUS ? —TOTAL IS 21 




PLAYER 1 LOSES 


500 T0TAL=- 


-500 


PLAYER 2 LOSES 


50 T0TAL=-: 


200 


DEALER'S T0TAL= 


700 




BETS 






II 1 T 100 






» 2 T 100 






PLAYER 1 2 


DEALER 




A 8 


10 




8 Q 






NO DEALER BLACKJACK. 




PLAYER 1 ? S 






TOTAL IS 1? 






PLAYER 2 ? S 






TOTAL IS 18 






DEALER HAS A 10 


CONCEALED FOR A TOTAL OF 20 



PLAYER 1 LOSES 100 TOTAL=-600 

PLAYER 2 LOSES 100 T0TAL=-300 

DEALER'S TOTAL" ?00 

BETS 

It 1 ? 500 

II 2 ? 500 

PLAYER 1 2 DEALER 

5 4 3 

2 8 
PLAYER 1 ? H 
RECEIVED A 4 HIT? H 
RECEIVED AN A HIT? H 
RECEIVED AN A HIT? S 
TOTAL IS 13 
PLAYER 2 ? H 
RECEIVED A 10 
DEALER HAS A 



DRAUS 7 --TOTAL IS 20 

PLAYER 1 LOSES 500 T0TAL= 

PLAYER 2 LOSES 500 T0TAL= 

DEALER'S TOTALS 1?00 

RESHUFFLING 

BETS 

« I ? 500 

II 2 ? 500 



...BUSTED 
K CONCEALED FOR A TOTAL OF 13 



•1100 
-800 



18 



PLAYER 1 2 


DEALER 


3 : 


7 


6 3 




PLAYER 1 T H 




RECEIVED A ID 


HITT S 


TOTAL IS 19 




PLAYER 2 T D 




RECEIVED A J 




TOTAL IS IB 




DEALER HAS A t 


CONCEALED FOR A TOTAL OF 13 


DRAUS 2 7 


...BUSTED 


PLAYER 1 UINS 


500 TOTAL=-1100 


PLAYER 2 UINS 


1000 TOTAL* 700 


DEALER'S TOTAL' 


400 


DETS 




II 1 ? 400 




II 2 T 320 




PLAYER 1 2 


DEALER 


Q 8 


10 


6 4 




NO DEALER BLACKJACK. 


PLAYER 1 T S 




TOTAL IS 16 




PLAYER 2 ? D 




RECEIVED A 7 




TOTAL IS 1? 




DEALER HAS A 2 


CONCEALED FOR A TOTAL OF 12 


DRAUS 4 K 


...BUSTED 


PLAYER 1 UINS 


400 TQTAL=-700 


PLAYER 2 UINS 


440 TOTAL= 1340 


DEALER'S TOTAL* 


-640 


BETS 




II 1 ? 500 




II 2 T 500 




PLAYER 1 2 


DEALER 


4 6 


J 


2 Q 




NO DEALER BLACKJACK. 


PLAYER 1 ? H 




RECEIVED A 9 


HIT? H 


RECEIVED AN 8 


...BUSTED 


PLAYER 2 T H 




RECEIVED AN A 


HIT? S 


TOTAL IS 17 




DEALER HAS A 7 


CONCEALED FOR A TOTAL OF 17 



PLAYER 1 LOSES 500 TOTAL=-1200 
PLAYER 2 PUSHES TOTAL= 1340 
DEALER'S !0TAL=-140 



2 PRINT TA8(31>;"BLACK JACK" 

4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

6 PRINT:PRINT:PRINT 

20 DIM PU5, 12), 0.(15), C<52),D<52), 1(8), S(7>,B<15> 

30 DIN R(15) 

40 REH— P(I,J) IS THE JTH CARD IN HAND I, Q(I) IS TOTAL OF HAND 1 

50 REH--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE, 

60 REN-T(I) IS THE TOTAL FOR PLAYER I, S(I) IS THE TOTAL THIS HAND 

70 REH--FOR PLAYER I, BID IS TH BET FOR HAND I 

80 REM— R(I) IS THE LENGTH OF p(I,t) 

90 GOTO 1500 

100 REH-SUBROUTINE TO GET A CARD. RESULT IS PUT IN X. 

110 IF C<51 THEN 230 

120 PRINT "RESHUFFLING" 

130 FOR D=D TO 1 STEP -1 

140 C=C-1 

150 C(C)=D(D) 

160 NEXT D 

170 FOR C1=52 TO C STEP -1 

180 C2 = INT(RND(1)*<C1-C+1)HC 

190 C3=C(C2) 

200 C(C2)=C(C1) 

210 C(C1)=C3 

220 NEXT CI 

230 X=C(C) 

240 C=C+1 

250 RETURN 

300 REM— SUBROUTINE TO EVALUATE HAND I. TOTAL IS PUT INTO 

310 REM— QUI. TOTALS HAVE THE FOLLOWING MEANING: 

320 REM— 2-10. ..HARD 2-10 

330 REH — 11-21. ..SOFT 11-21 

340 REH- 22-32. ..HARD 11-21 

350 REH— 33 + BUSTED 

360 Q=0 

370 FOR 02=1 TO R(I) 

380 X=P(I,Q2) 

3?0 GOSUB 500 

400 NEXT 82 

410 0(I)=Q 

420 RETURN 
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500 

5I0 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

700 

710 

720 

730 

740 

750 

760 

770 

780 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1300 

1310 

1320 

1325 

1330 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 



REM— SUBROUTINE TO ADD CARD X TO TOTAL Q. 

X1 = X: IF X 1 > 1 THEN X1=10: REM SAME AS Xl = 10 MIN X 

Q1=QtX1 

IF Q>=11 THEN 590 

IF X>1 THEN 570 

0=0+11 

RETURN 

0=01-1 1*<Q1>=11> 

RETURN 

Q=01-((K=21 AND Q1>21 ! 

IF Q<33 THEN 620 

Q=-1 

RETURN 

REM— CARD PRINTING SUBROUTINE 

REM D* DEFINED ELSEWHERE 

PRINT HID*(D*,3*X-2,3); 

PRINT " "; 

RETURN 

REM— ALTERNATIVE PRINTING ROUTINE 

PRINT " ";MIDS(D»,3*X-1,2); 

PRINT " "; 

RETURN 

REM— SUBROUTINE TO PLAY OUT A HAND. 

REM— NO SPLITTING OR BLACKJACKS ALLOUED 

H1=5 

GOSUB 1410 

H1=3 

ON H GOTO 950,930 

GOSUB 100 

B(I)=B(I>*2 

PRINT "RECEIVED A"; 

60SUB 700 

GOSUB 1100 

IF Q>0 THEN GQSUB 1300 

RETURN 

GOSUB 1320 

RETURN 

GOSUB 100 

PRINT "RECEIVED A"; 

GOSUB 700 

GOSUB 1100 

IF Q<0 THEN 940 

PRINT "HIT"; 

GOTO 830 

REM— SUBROUTINE TO ADD A CARD TO ROU I 

R(I)=RU> + 1 

P(I,R(I))=X 

Q=Q(I) 

GOSUB 500 

Q(I)=Q 

IF U>=0 THEN 1190 

PRINT "...BUSTED" 

SOSUB 1200 

RETURN 

REM— SUBROUTINE TO DISCARD ROU I 

IF R(I)O0 THEN 1230 

RETURN 

D = D + 1 

D(D)=P(I,R(I)) 

R(I)=R(I)-1 

GOTO 1210 

REH— PRINTS TOIAL OF HAND I 

PRINT 

AA=Q(I): GOSUB 34O0 

PRINT "TOTAL IS";AA 

RETURN 

REH — SUBROUTINE TO READ REPLY 

REM I* DEFINED ELSEUHERE 

INPUT H»: H»=LEFT»(H$,1 ) 

FOR H=1 TO HI STEP 2 

IF H$=MIDS(I5,H,1) THEN 1480 

NEXT H 

PRINT "TYPE ";HID*U»,1,H1-1>;" OR " ;M IDS ( I J ,H1 ,2) ; " PLEASE" 

GOTO 1420 

H=tH+1 )/2 

RETURN 

REM — PROGRAM STARTS HERE 

REM— INITIALIZE 



5 6 7N 



10 



K" 



D$ = "N A 2 3 

IS="H,S,D,/," 

FOR 1=1 TO 13 

FOR J=4tI-3 TO 4*1 

D ( J ) = I 

NEXT J 

NEXT I 

D=52 

C=5.3 

PRINT "DO YOU UANT INSTRUCTIONS"; 

INPUT H$ 

IF LEFT*(H*,1)="N" THEN 1760 

PRINT "THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS HAY PLAY THE" 

PRINT "GAHE. ON EACH DEAL, BETS UILL BE ASKED FOR, AND THE" 

PRINT "PLAYERS' BETS SHOULD BE TYPED IN. THE CARDS UILL THFN BE" 



1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
17?0 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1 890 

1 V00 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2252 
2253 
2254 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 

2 430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 



PRINT 
PRINT 



"DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE" 
"FIRST RESPONSE SHOULD BE EITHER 'D', INDICATING THAT THE" 



PRINT "PLAYER IS DOUBLING DOUK, 'S', INDICATING THAT HE IS" 
PRINT "STANDING, 'H", INDICATING HE HANTS ANOTHER CARD, OR '/'," 
PRINT "INDICATING THAT HE HANTS TO SPLIT HIS CARDS. AFTER THE " 
PRINT "INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE S' OR" 
PRINT "'H', UNLESS THE CARDS UERE SPLIT, IN UHICH CASE DOUBLING" 
PRINT "DOWN IS AGAIN PERHITTED. IN ORDER TO COLLECT FOR" 
PRINT "BLACKJACK, THE INITIAL RESPONSE SHOULD BE 'S'." 
PRINT "NUMBER OF PLAYERS"; 
INPUT N 

IF N-:1 OR N>7 OR N.-INKN) THEN 1760 
FOR 1=1 TO 8: T(I)=0: NEXT I 
01 =N+1 

IF 2*D1+C>=52 THEN GOSUB 120 
IF C = 2 THEN C=C-1 
FOR 1 = 1 TO N: Z(I) = 0: NEXT I 
FOR 1=1 TO 15: B(I)=0: NEXT I 
FOR 1 = 1 TO 15: Q(I)=0: NEXT I 
S(I)=0: NEXT I 
R(I)=0: NEXT I 



FOR 1=1 
FOR 1=1 



PRINT "H";l;: INPUT Z(I): NEXT I 



TO 7: 

TO 15: 
PRINT "BETS" 
FOR 1 = 1 TO N: 
FOR 1=1 TO N 

IF Z(I)(=0 OR Z(I>>500 THEN 1880 
E(I!=Z(I) 
NEXT I 

PRINT "PLAYER"; 
FOR 1=1 TO N 
PRINT i;" "; 
NEXT I 

PRINT "DEALER" 
FOR J=1 TO 2 
PRINT TAB(5); 
FOR 1=1 TO D1 
GOSUB 100 
P(I,J)=X 

IF J=1 OR K=N THEN 60SUB 750 
NEXT I 
PRINT 
NEXT J 

FOR 1=1 TO D1 
R(I)=2 
NEXT I 

REN— TEST FOR INSURANCE 
IF P(D1,1>>1 THEN 2240 
PRINT "ANY INSURANCE"; 
INPUT H$ 

IF LEFT$(H$,1K>"Y" THEN 2240 
PRINT "INSURANCE BETS" 

FOR 1 = 1 TO N: PRINT "tl";l;: INPUT Z(I): NEXT I 
FOR 1=1 TO N 

IF ZdKO OR Z(I)>B(I)/2 THEN 2160 
NEXT I 

FOR 1=1 TO N 

S(I)=Z(I)t(3*(-(P(D1,2)>=10))-1) 
NEXT I 

REM — TEST FOR DEALER BLACKJACK 
L1=1: L2=1 

IF P(D1,1)=1 AND P(D1,2)>? THEN L1=0: L2=0 
IF P(D1,2)=1 AND P(D1,1)>9 THEN L1=0: L2=0 
IF L1O0 OR L2O0 THEN 2320 
PRINT "DEALER HAS A" ;MID* (DS,3*P(DI ,2) 
PRINT "FOR BLACKJACK" 
FOR 1=1 TO D1 
GOSUB 300 
NEXT I 
GOTO 3140 

REM — NO DEALER BLACKJACK 
IF P(D1,1!M AND P(D1,1><10 THEN 2350 
PRINT "NO DEALER BLACKJACK." 
REM — NOU PLAY THE HANDS 
FOR 1=1 TO N 
PRINT "PLAYER"; I; 
H1=7 

GOSUB 1410 

ON H GOTO 2550,2410,2510,2600 
REM — PLAYER UANTS TO STAND 
GOSUB 300 

IF QUXJ21 THEN 2490 
PRINT "BLACKJACK" 
S(I)=S(l)t1.5*B(I) 
B(1!=0 
GOSUB 1200 
GOTO 2900 
GOSUB 1320 
GOTO 2900 

REM — PLAYER UAH TS TO DOUBLE DOUN 
GOSUB 300 
GOSUB 860 
GOTO 2900 
REM--PLAYER UANTS TO BE HIT 



3);" IN THE HOLE 



2560 
2570 
2580 
2590 
2600 
2610 
2612 
2614 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3035 
3040 
3050 
3060 
3070 
3080 
3090 
3095 
3100 
3110 
3120 
3125 
3130 
3140 
3150 
3160 
3170 
3180 
3182 
3184 
3186 
3188 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3400 
3410 
3420 



GOSUB 300 

H1=3 

GOSUB 950 

GOTO 2900 

REM— PLAYER UANTS TO SPLIT 

L1=P(I,1): IF P(I,1);>10 THEN L1 = 10 

L2=P(I,2): IF P < 1 , 2 ) > 1 THEN L2=10 

IF L1=L2 THEN 2640 

PRINT "SPLITTING NOT ALLOUED." 

GOTO 2370 

REM— PLAY OUT SPLIT 

I1=I+D1 

R(I1)=2 

P(I1,I)=P(I,2) 

B(I+D1)=B(I) 

GOSUB 100 

PRINT "FIRST HAND RECEIVES A"; 

GOSUB 700 

P(I,2)=X 

GOSUB 300 

PRINT 

GOSUB 100 

PRINT "SECOND HAND RECEIVES A"; 

1 = 11 

GOSUB 700 

P(I,2)=X 

GOSUB 300 

PRINT 

I=I1-D1 

IF P(I,1)=1 THEN 2900 

REM— NOU PLAY THE TUO HANDS 

PRINT "HAND" ; 1 -( I>D1 ) ; 

GOSUB 800 

I=I+D1 

IF 1=11 THEN 2850 

r= 1 1 -d i 

NEXT I 

GOSUB 300 

REM— TEST FOR PLAYING DEALER'S HAND 

FOR 1=1 TO N 

IF R ( I ) > OR R< I + D1 )>0 THEN 3010 

NEXT I 

PRINT "DEALER HAD A"; 

X=P(D1,2) 

GOSUB 700 

PRINT " CONCEALED." 

GOTO 3140 

PRINT "DEALER HAS A";MIDS(D*,3*P <D1 ,2)-2,3) ; " CONCEALED 

I = D1 

AA=Q(I): GOSUB 3400 

PRINT "FOR A TOTAL OF";AA 

IF AA>16 THEN 3130 

PRINT "DRAUS"; 

GOSUB 100 

GOSUB 750 

GOSUB 1100 

AA=Q: GOSUB 34*00 

IF Q>0 AND AAf.l? THEN 3060 

Q(I)=Q-(Q<01/2 

IF Q<0 THEN 3140 

AA=Q: GOSUB 3400 

PRINT "- — TOTAL IS";AA 

PRINT 

REM — TALLY THE RESULT 

REH 

Z»="LOSES PUSHES UINS " 

FOR I = ! TO N 

AA=0(I): GOSUB 3400 

AB=Q(I+D1): GOSUB 3410 

AC=Q(D1): GOSUB 3420 

S(I)=S(I)+B(I)*SGN(AA-AC)+B(I+D1)*SGN(AB-AC) 

B( I+D1 )=0 

PRINT "PLAYER";I; 

PRINT HID$(ZS,5GN(S(I))t6+7,6);" "; 

IF SUX>0 THEN 3250 

PRINT " "; 

GOTO 3260 

PRINT ABS(S(D); 

T(I)=T(I)+S(I) 

PRINT "T0TAL=";T(I! 

GOSUB 1200 

T(D1)=T(D1)-S(I) 

1=I+D1 

GOSUB 1200 

I=I-D1 

NEXT I 

PRINT "DEALER- S TO TAL="; T (Dl ) 

GOSUB 1200 

GOTO 1810 

AA=AA+11*(AA>=22>: RETURN 

A8=AB+11*(AB>=22>: RETURN 

AC=AC+11*(AC>=22>: RETURN 
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Bombardment 



BOMBARDMENT is played on two, 5x5 
grids or boards with 25 outpost 
locations numbered 1 to 25. Both you 
and the computer have four platoons of 
troops that can be located at any four 
outposts on your respective grids. 

At the start of the game, you locate 
(or hide) your four platoons on your 
grid. The computer does the same on 
its grid. You then take turns firing 
missiles or bombs at each other's 
outposts trying to destroy all four 
platoons. The one who finds all four 
opponents' platoons first, wins. 

This program was slightly modified 
from the original written by Martin 
Burdash of Parlin, New Jersey. 

BOMBARDMENT 
CREATIVE COMPUTING HQRRISTOUN, NEU JERSEY 



UHERE DO YOU WISH TO FIRE YOUR HISSILE? 11 
HA, HA YOU HISSED. HY TURN NOU 



I MISSED YOU, YOU DIRTY RAT. I PICKED 13 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE? ? 
HA, HA YOU MISSED. MY TURN NOU 



I MISSED YOU, YOU DIRTY RAT. I PICKED 15 . YOUR TURH. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE' 25 
HA, HA YOU MISSED. MY TURN NOU 



I HISSED YOU, YOU DIRTY RAT. I PICKED 12 . YOUR TURN. 



YOU ARE ON A BATTLEFIELD UITH 4 PLATOONS AND YOU 
HAVE 25 OUTPOSTS AVAILABLE UHERE THEY NAY BE PLACED. 
YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST. 
THE COMPUTER DOES THE SAME UITH ITS FOUR PLATOONS. 

THE OBJECT OF THE GAME IS TO FIRE MISSILES AT THE 
OUTPOSTS OF THE COMPUTER. IT UILL DO THE SAME TO YOU. 
THE ONE UHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS 
FIRST IS THE UINNER. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE' 5 
HA, HA YOU MISSED. MY TURN NOU 



I MISSED YOU, YOU DIRTY RAT. I PICKED 1 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE' 20 
HA, HA YOU HISSED. HY TURN NOU 



GOOD LUCK... AND TELL US UHERE YOU UANT THE BODIES SENT! 
TEAR OFF MATRIX AND USE IT TO CHECK OFF THE NUMBERS. 



I GOT YOU. IT UON'T BE LONG NOU. POST 16 UAS HIT. 
YOU HAVE ONLY THREE 0UTP05TS LEFT. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE? 21 
HA, HA YOU MISSED. HY TURN NOU 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


1? 


20 


21 


22 


23 


24 


25 



I HISSED YOU, YOU DIRTY RAT. I PICKED 20 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE? 23 
YOU GOT ONE OF MY OUTPOSTS. 
ONE DOUN, THREE TO GO 



I MISSED YOU, YOU DIRTY RAT. I PICKED 8 . YOUR TURN. 



UHAT ARE YOUR FOUR POSITIONS? 10, V, 16, 24 

UHERE DO YOU UISH TO FIRE YOUR MISSILE? 3 
HA, HA YOU MISSED. MY TURN NOU 



I MISSED YOU, YOU DIRTY RAT. I PICKED 21 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR HISSILE? 3 
HA, HA YOU HISSED. MY TURN NOU 



I MISSED YOU, YOU DIRTY RAT. I PICKED 23 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE? 13 
HA, HA YOU MISSED. MY TURN NOU 



UHERE DO YOU UISH TO FIRE YOUR MISSILE? 16 
HA, HA YOU HISSED. HY TURN NOU 



I MISSED YOU, YOU DIRTY RAT. I PICKED 4 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE? 15 
HA, HA YOU HISSED. NY TURN NOU 



I MISSED YOU, YOU DIRTY RAT. I PICKED 6 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE? 14 
YOU GOT ONE OF MY OUTPOSTS. 
TUO DOUN, TUO TO GO 



I MISSED YOU, YOU DIRTY RAT. I PICKED 22 . YOUR TURN. 



I GOT YOU. IT UON'T BE LONG NOU. POST 10 UAS HIT. 
YOU HAVE ONLY TUO OUTPOSTS LEFT. 
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UHERE DO YOU WISH TO FIRE YOUR MISSILE? 13 
HA, HA YOU HISSED. HY TURN NOU 



UHERE DO YOU UISH TO FIRE YOUR HISSI1E? 3 
HA, HA YOU HISSED. HY TURN NOU 



I HISSED YOU, YOU DIRTY RAT. I PICKED 1? . YOUR TURN. 



I HISSED YOU, YOU DIRTY RAT. I PICKED 3 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR HISSILE? 12 
HA, HA YOU HISSED. HY TURN NOU 



UHERE DO YOU UISH TO FIRE YOUR HISSILE? 4 
HA, HA YOU HISSED. HY TURN NOU 



I HISSED YOU, YOU DIRTY RAT. I PICKED 7 . YOUR TURN. 



I NISSED YOU, YOU DIRTY RAT. I PICKED 14 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR HISSILE? 11 
HA, HA YOU HISSED. HY TURN NOU 



UHERE DO YOU UISH TO FIRE YOUR HISSILE' 22 
HA, HA YOU HISSED. HY TURN NOU 



I GOT YOU. IT UON'T BE LONG NOU. POST 24 UAS HIT. 
YOU HAVE ONLY ONE OUTPOST LEFT. 



I NISSED YOU, YOU DIRTY RAT. I PICKED 25 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR HISSILE? 1 
HA, HA YOU HISSED. HY TURN NOU 



I MISSED YOU, YOU DIRTY RAT. I PICKED 2 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR HISSILE? 2 
YOU GOT ONE OF HY OUTPOSTS. 
THREE DOUN, ONE TO GO 



I HISSED YOU, YOU DIRTY RAT. I PICKED 18 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR HISSILE? 12 
HA, HA YOU HISSED. HY TURN NOU 



I HISSED YOU, YOU DIRTY RAT. I PICKED 11 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR MISSILE? 9 
HA, HA YOU HISSED. HY TURN NOU 



YOU'RE DEAD. YOUR LAST OUTPOST UAS AT 9 . HA, HA, HA. 
BETTER LUCK NEXT TIME. 



MORRISTOUN, NEU JERSEY" 



10 PRINT TAB(2B);"B0MBARDMENT" 

20 PRINT TAB(15);"CREATIUE COMPUTING 

30 PRINT:PRINT:PRINT 

100 PRINT "YOU ARE ON A BATTLEFIELD UITH 4 PLATOONS AND YOU" 

"HAVE 25 OUTPOSTS AVAILABLE UHERE THEY MAY BE PLACED." 
"YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST." 
"THE COMPUTER DOES THE SAME UITH ITS FOUR PLATOONS." 



110 PRINT 

120 PRINT 

130 PRINT 

135 PRINT 

140 PRINT "THE OBJECT OF THE 6AHE IS TO FIRE HISSLES AT THE" 

150 PRINT "OUTPOSTS OF THE COHPUTER. IT UILL DO THE SAME TO YOU." 

HO PRINT "THE ONE UHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS" 

i;0 PRINT "FIRST IS THE WINNER. " 

180 PRINT 

190 PRINT "GOOD LUCK... AND TELL US UHERE YOU UANT THE BODIES SENT!" 

200 PRINT 

210 PRINT "TEAR OFF MATRIX AND USE IT TO CHECK OFF THE NUHBERS." 

220 FOR R-1 TO 5: PRINT: NEXT R 

240 DIM M(IOO) 

270 FOR R=1 TO 5 

280 I=(R-1)*5t1 

290 PRINT 1, 1*1, 1+2, It3, IM 

300 NEXT R 

350 FOR R=1 TO 10: PRINT: NEXT R 

380 C=INT(RND(1)*25)t1 

390 D*INT(RND<1)*25)+1 

400 E=INT(RND<1>«25)+1 

410 F=INT(RND<1>*25>+1 

420 IF C=D THEN 390 

430 IF C=E THEN 400 

440 IF C=F THEN 410 

450 IF D=E THEN 400 

460 IF D=F THEN 410 

470 IF E=F THEN 410 

480 PRINT "UHAT ARE YOUR FOUR POSITIONS"; 

490 INPUT G,H,K,L 

495 PRINT 

500 PRINT "UHERE DO YOU UISH TO FIRE YOUR HISSLE"; 

510 INPUT Y 

520 IF Y=C THEN 710 

530 IF Y=D THEN 710 

540 IF Y=E THEN 710 

550 IF Y=F THEN 710 

560 GOTO 630 

570 M=INT<RND(1)*25)+1 

575 GOTO 1160 

5B0 IF X=G THEN 920 

590 IF X=H THEN 920 



600 IF X=L THEN 920 

610 IF X=K THEN 920 

620 GOTO 670 

630 PRINT " HA, HA YOU HISSED. HY TURN NOU" 

640 PRINT: PRINT: GOTO 570 

670 PRINT "I HISSED YOU, YOU DIRTY RAT. I PICKED";M;". 

680 PRINT: PRINT: GOTO 500 

710 0=Qt1 

720 IF 0=4 THEN 890 

730 PRINT "YOU GOT ONE OF MY OUTPOSTS." 

740 IF 0=1 THEN 770 

750 IF Q=2 THEN 810 

760 IF 0=3 THEN 850 

770 PRINT "ONE DOUN, THREE TO GO" 

780 PRINT: PRINT: GOTO 570 

810 PRINT "TUO DOUN, TUO TO GO" 

820 PRINT: PRINT: GOTO 570 

850 PRINT "THREE DOUN, ONE TO GO" 

860 PRINT: PRINT: GOTO 570 

890 PRINT "YOU GOT HE, I'M GOING FAST. 

900 PRINT " Y TRANSISTORS SECUPERA E" 

910 GOTO 1235 

920 Z=Z+1 

930 IF Z*4 THEN 1110 

940 PRINT "I GOT YOU. 

950 IF Z=1 THEN 990 

960 IF Z=2 THEN 1030 

970 IF Z=3 THEN 1070 

990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT." 

1000 PRINT: PRINT: GOTO 500 

1030 PRINT "YOU HAVE ONLY TUO OUTPOSTS LEFT." 

1040 PRINT: PRINT: GOTO 500 

1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT." 

1080 PRINT: PRINT: GOTO 500 

1110 PRINT "YOU'RE DEAD. YOUR LAST OUTPOST UAS AT";X;" 

1120 PRINT "BETTER LUCK NEXT TIME." 

1150 GOTO 1235 

1160 P=Pt1 

1170 N=P-1 

1180 FOR T=1 TO N 

1190 IF H=H(T) THEN 570 

1200 NEXT T 

1210 X=M 

1220 H(P)=M 

1230 GOTO 580 

1235 END 



YOUR TURN. 



BUT I'LL GET YOU UHEN" 



IT UON'T BE LONG NOU. POST";X;"UAS HIT." 



HA, HA, HA. 
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Bombs Away 



In this program, you fly a World War 
II bomber for one of the four 
protagonists of the war. You then pick 
your target or the type of plane you are 
flying. Depending upon your flying 
experience and the quality of the 
enemy defenders, you then may ac- 
complish your mission, get shot down, 
or make it back through enemy fire. In 
any case, you get a chance to fly again. 

David Ahl modified the original 
program which was created by David 
Sherman while a student at Curtis Jr. 
High School, Sudbury, Massachusetts. 



BOMBS AUAY 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 

YOU ARE A PILOT IN A UORLD UAR II BOHBER. 

UHAT SIDE -- ITALYd), ALLIESI2), JAPANI3), GERMANYI4)? 2 

AIRCRAFT ~ LIBERATOR(I), B-2912), B-1713), LANCASTER!*)? 4 

YOU'RE BUSTING A GERMAN HEAVY UATER PLANT IN THE RUHR. 

HOU MANY HISSIONS HAVE YOU FLOUN? 25 



DIRECT HIT!!!! 43 KILLED. 
MISSION SUCCESSFUL. 



ANOTHER MISSION (Y OR N>? Y 

YOU ARE A PILOT IN A UORLD UAR II BOMBER. 

UHAT SIDE — ITALYd), ALIIESI2), JAPAN13), GERHANY<4>? 3 

YOU'RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON. 

YOUR FIRST KAMIKAZE MI5SI0NU OR N)? Y 

* * * * BOOM » » * » 

YOU HAVE BEEN SHOT DOUN 

DEARLY BELOVEB, UE ARE GATHERED HERE TODAY TO PAY OUR 
LAST TRIBUTE... 



ANOTHER MISSION (Y OR N>? Y 

YOU ARE A PILOT IN A UORLD UAR II BOMBER. 

UHAT SIDE — ITALYd), ALLIESI2), JAPANI3), GERMANYI4)? 1 

YOUR TARGET — ALBANIAd), GREECE(2), NORTH AFRICA<3>? 1 



8 PRINT "YOU ARE A PILOT IN A UORLD UAR II BOMBER." 

10 INPUT "UHAT SIDE -- ITALYd), ALLIESI2), JAPANI3), GERHANY(4)";A 

20 IF A>0 AND A<5 THEN 25 

22 PRINT "TRY AGAIN..." : GOTO 10 

25 ON A GOTO 30, 110, 200, 220 

30 INPUT "YOUR TARGET — ALBANIAd), GREECE(2), NORTH AFRICA(3)";B 

40 IF B>0 AND B<4 THEN 45 

42 PRINT "TRY AGAIN..." : GOTO 30 

45 PRINT : ON B GOTO 50, 00, 90 

50 PRINT "SHOULD BE EASY ~ YOU'RE FLYING A NAZI-MADE PLANE." 

60 GOTO 280 

80 PRINT "BE CAREFUL!!!" : GOTO 280 

90 PRINT "YOU'RE GOING FOR THE OIL, EH?" : GOTO 280 

110 INPUT "AIRCRAFT — LIBERATOR! 1 ) , B-2912), B-17<3), LANCASTER(4)";G 

120 IF G>0 AND G<5 THEN 125 

122 PRINT "TRY AGAIN..." : GOTO 110 

125 PRINT : ON G GOTO 130, 150, 170, 190 

130 PRINT "YOU'VE BOT 2 TONS OF BOMBS FLYING FOR PLOESTI." : GOTO 280 

150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA." : GOTO 280 

170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." : GOTO 280 

190 PRINT "YOU'RE BUSTING A GERMAN HEAVY UATER PLANT IN THE RUHR." 

195 GOTO 280 

200 PRINT "YOU'RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON." 

205 INPUT "YOUR FIRST KAMIKAZE HISSI0N1Y OR N)";F$ 

207 IF F»="N" THEN S=0 : GOTO 358 

210 PRINT : IF RNDd)>.65 THEN 325 

215 GOTO 380 

220 PRINT "A NAZI, EH? OH UELL. ARE YOU GOING FOR RUSSIA(I)," 

ENGLANDI2), OR FRANCE(3)";M : IF M>0 AND M<4 THEN 235 

TRY AGAIN..." : GOTO 220 
ON M GOTO 250, 240, 270 

YOU'RE NEARING STALINGRAD." : GOTO 280 

NEARING LONDON. BE CAREFUL, THEY'VE GOT RADAR." : GOTO 280 

NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS. 



SHOULD BE EASY 



YOU'RE FLYING A NAZI-MADE PLANE. 



200 



HOU MANY MISSIONS HAVE YOU FLOUN? 

HISSIONS, NOT MILES... 

150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS. 

NOU THEN, HOU MANY MISSIONS HAVE YUU FLOUN? 20 



230 INPUT 

232 PRINT 

235 PRINT 

250 PRINT 

240 PRINT 

270 PRINT 

2B0 PRINT 

285 INPUT "HOU MANY MISSIONS HAVE YOU FL0UN";D 

290 IF D<140 THEN 300 

292 PRINT "MISSIONS, NOT MILES..." 

295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS." 

297 PRINT "NOU THEN, "; : GOTO 285 

300 PRINT:IF »<100 THEN 310 

305 PRINT "THAT'S PUSHING THE ODDS!" : GOTO 320 

310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?" 

320 PRINT : IF D<140*RND(1) THEN 330 

325 PRINT "DIRECT HIT!!!! "INTdOO+RNDd ) ("KILLED." 

327 PRINT "MISSION SUCCESSFUL." : GOTO 390 

330 PRINT "MISSED TARGET BY"INT(2+30*RND(1 ) ("MILES! " 

335 PRINT "NOU YOU'RE REALLY IN FOR IT !!" : PRINT 

340 INPUT "DOES THE ENEMY HAVE GUNSd), MISSILESI2), OR B0TH(3)";R 

345 IF R>0 AND R<4 THEN 350 

347 PRINT "TRY AGAIN..." : GOTO 340 

350 PRINT : T=0 : IF R=2 THEN 340 

355 INPUT "UHAT'S THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S 

357 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY...": GOTO 380 

360 PRINT : IF R>1 THEN T=35 

365 IF S+T>100*RND(1) THEN 380 

370 PRINT "YOU MADE IT THROUGH TREMENDOUS FLAK!!" : GOTO 390 

380 PRINT "* * * » BOOM ♦ * * *" 

3B4 PRINT "YOU HAVE BEEN SHOT DOUN " 

384 PRINT "DEARLY BELOVED, UE ARE GATHERED HERE TODAY TO PAY OUR" 

387 PRINT "LAST TRIBUTE..." 

390 PRINT:PRINT:PRINT:INPUT "ANOTHER MISSION (Y OR N)";U» 

395 IF U*="Y" THEN 8 

400 PRINT "CHICKEN !!!" : PRINT : END 
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Bounce 



This program plots a bouncing ball. 
Most computer plots run along the 
paper in the terminal (top to bottom); 
however, this plot is drawn horizontally 
on the paper (left to right). 

You may specify the initial velocity of 
the ball and the coefficient of elasticity 
of the ball (a superball is about 0.85 — 
other balls are much less). You also 
specify the time increment to be used 
in "strobing" the flight of the ball. In 
other words, it is as though the ball is 
thrown up in a darkened room and you 
flash a light affixed time intervals and 
photograph the progress of the ball. 

The program was originally written 
by Val Skalabrin while he was at DEC. 




BOUNCE 
CREATIVE C0HPUT1N6 HORRISTOUN, NEU JERSEY 

THIS SIHULATION LETS YOU SPECIFY THE INITIAL VELOCITY 
OF A BALL THROUN STRAIGHT UP, AND THE COEFFICIENT OF 
ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION 
COEFFICIENCY (LESS THAN 1). 

YOU ALSO SPECIFY THE TIHE INCREHENT TO BE USED IN 
'STROBING' THE BALL'S FLIGHT (TRY .1 INIIIALLY). 

TIHE INCREHENT (SEC)? .1 

VELOCITY (FPS)? 30 

COEFFICIENT? .9 

FEET 

14 000 


13 

12 

11 



to 



9 0000 


8 


7 


6 


5 


* 

3 



2 

I 



12 3 4 

SECONDS 



HORRISTOUN, NEU JERSEY" 



00 




"VELOCITY (FPS)":V 



"COEFFICIENT'JC 



TO STEP -.3 



10 PRINT TAB(33);"BOUNCE" 

20 PRINT TAB(I5);"CREATIVE C0HPUTINB 

30 PRINT:PRINT:PRINT 

90 DIN T(20> 

100 PRINT "THIS SIHULATION LETS YOU SPECIFY THE INITIAL VELOCITY" 

110 PRINT "OF A BALL THROUN STRAIGHT UP, AND THE COEFFICIENT OF" 

120 PRINT "ELASTICITY OF THE BALL. PLEASE USE A DECIHAL FRACTION" 

130 PRINT "COEFFICIENCY (LESS THAN I)." 

131 PRINT 

132 PRINT "YOU ALSO SPECIFY THE TIHE INCREHENT TO BE USED IN" 

133 PRINT "'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALLY)." 

134 PRINT 

135 INPUT "TIHE INCREHENT (SEC)";S2 
140 PRINT 
150 INPUT 
160 PRINT 
170 INPUT 
180 PRINT 
162 PRINT "FEET" 
184 PRINT 

186 S1 = INT(70/(V/(U«S2>)) 
190 FOR 1 = 1 TO SI 
200 T(I)=V*C*(I-1)/16 
210 NEXT I 

220 FOR H=INT(-1<S»<V/32)-2+V2/32*.5> 

221 IF INKHIOH THEN 225 

222 PRINT H; 
225 L=0 

230 FOR 1 = 1 TO SI 
240 FOR T=0 TO T(I) STEP S2 
245 L=L+S2 

250 IF ABS(H-(.5*(-32)*T"2+V*C-(I-1)*T))>.25 THEN 270 
260 PRINT TAB(L/S2);"0"; 
270 NEXT T 

275 T=T<I+1)/2 

276 IF -16»T"2+V»C*(I~1)»T<H THEN 290 
280 NEXT I 
290 PRINT 
300 NEXT H 
310 PRINT TABID; 
320 FOR 1 = 1 TO INTIL+D/S2+1 
330 PRINT "."; 
340 NEXT I 
350 PRINT 
355 PRINT " 0"; 
360 FOR 1 = 1 TO INKL + .9995) 
380 PRINT TAB(INT(I/S2));l; 
390 NEXT I 
400 PRINT 

410 PRINT TAB(INT(Lt1)/(2*S2)-2);"SEC0NDS" 
420 PRINT 
430 GOTO 135 
440 END 
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Bowling 



This is a simulated bowling game for 
up to four players. You play 10 frames. 
To roll the ball, you simply type 
"ROLL." After each roll, the computer 
will show you a diagram of the remain- 
ing pins ("0" means the pin is down, "+" 
means it is still standing), and it will 
give you a roll analysis: 

GUTTER 

STRIKE 

SPARE 

ERROR (on second ball if pins still 
standing) 

Bowling was written by Paul Peraino 
while a student at Woodrow Wilson 
High School, San Francisco, Califor- 
nia. 



BOUL 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 



UELCOME TO THE ALLEY 

BRINC YOUR FRIENDS 

OKAY LET'S FIRST BET ACQUAINTED 

THE INSTRUCTIONS (Y/N) 

? Y 

THE GAME OF BOULINO TAKES SKILL. DURING THE GAHE 

THE COMPUTER UILL KEEP SCORE. YOU MAY COHPETE UITH 

OTHER PLAYERSCUP TO FOUR]. YOU UILL BE PLAYING TEN FRAMES 

ON THE PIN DIAGRAM '0' MEANS THE PIN IS D0UN...'*' MEANS T 

PIN IS STANDING. AFTER THE GAME THE COMPUTER UILL SHOU YOUR 

SCORES . 

FIRST OF ALL...H0U MANY ARE PLAYING? 2 

VERY GOOD... 

TYPE ROLL TO GET THE BALL GOING. 

? ROLL 

PLAYER: t FRAME: 1 BALL: 1 

+ 

0*0 





TYPE ROLL TO GET THE BALL GOING. 

? ROLL 

PLAYER: 1 FRAHE: 1 BALL: 2 



0*0 





ERROR!!! 

TYPE ROLL TO BET THE BALL GOING. 

? ROLL 

PLAYER: 2 FRAME: 1 BALL: I 



♦ 

* 





TYPE ROLL 


TO BET 


THE BALL GOING. 






1 ROLL 










PLAYER: 2 


FRAME: 


1 BALL: 2 


TYPE ROLL TO BET 
? ROLL 


THE BALL GOING. 









PLAYER: 2 FRAME: 


3 BALL: 1 


* 










* 






* * 











♦ 




GUTTER!! 






t + 




ERROR!!! 











TYPE ROLL 


TO PET 


THE BALL GOING. 


TYPE ROLL TO GET 


THE BALL GOING. 


? ROLL 






? ROLL 




PLAYER: 1 


FRAHE: 


2 BALL: t 


PLAYER: 2 FRAME: 


3 BALL: 2 


+ 











* 































SPARE!!!! 




TYPE ROLL 


TO BET 


THE BALL GOING. 






? ROLL 






TYPE ROLL TO GET 


THE BALL 60INO. 


PLAYER: 1 


FRAME: 


2 BALL: 2 


? ROLL 

PLAYER: 1 FRAHE: 


4 BALL: 1 


0*0 










* 






+ ♦ 




























BUTTER!! 











ERROR!!! 






TYPE ROLL TO BET 


THE BALL GOING. 


TYPE ROLL 


TO GET 


THE BALL GOING. 


? ROLL 




? ROLL 






PLAYER: 1 FRAME: 


4 BALL: 2 


PLAYER: 2 


FRAME: 


2 BALL: 1 







+ 











+ 











+ 


















SPARE!!!! 




TYPE ROLL 


TO GET 


THE BALL GOING. 


TYPE ROLL TO GET 


THE BALL GOING. 


? ROLL 






? ROLL 




PLAYER: 2 


FRAME: 


2 BALL: 2 


PLAYER: 2 FRAME: 


4 BALL: I 









+ + 











+ 




+ 


















+ 




ERROR!!! 






TYPE ROLL TO GET 


THE BALL GOING, 


TYPE ROLL 


TO GET 


THE BALL BOING. 


? ROLL 




? ROLL 






PLAYER: 2 FRAHE: 


4 BALL: 2 


PLAYER: 1 


FRAME: 


3 BALL: 1 







+ 000 























» 


















SPARE!!!! 




TYPE ROLL 


TO GET 


THE BALL GOING. 


TYPE ROLL TO BET 


THE BALL GOING 


? ROLL 






1 ROLL 




PLAYER: 1 


FRAME: 


3 BALL: 2 


PLAYER: 1 FRAME: 


5 BALL: 1 


+ 000 






+ 











+ 




























ERROR!!! 
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«*^3bJ&jV"""' 



10 PRINT TAB(34);"B0UL" 

20 PRINT TAB(15);"CREATIME COMPUTING MORRISTOUN, NEU JERSEY" 

30 PRINT:PRIMT:PRINT 

270 OIH C(15),A(100,6) 

360 PRINT "WELCOME TO THE ALLEY" 

450 PRINT "BRING YOUR FRIENDS" 

540 PRINT "OKAY LET'S FIRST GET ACQUAINTED" 

430 PRINT "" 

720 PRINT "THE INSTRUCTIONS <Y/N>" 

810 INPUT Z$ 

900 IF Z*="Y" THEN 990 

960 IF ZJ="N" THEN 1530 

990 PRINT "THE GAME OF BOULING TAKES HIND AND SKILL. DURING THE GAHE" 

1080 PRINT "THE COHPUTER UILL KEEP SCORE. YOU HAY COMPETE UITH" 

1170 PRINT "OTHER PLAYER5CUP TO FOUR]. YOU UILL BE PLAYING TEN FRAMES" 

1260 PRINT "ON THE PIN DIAGRAM '0' MEANS THE PIN IS DOUN...'*' MEANS THE" 

1350 PRINT "PIN IS STANDING. AFTER THE GAME THE COHPUTER UILL SHOU YOUR" 

1440 PRINT "SCORES ." 

1530 PRINT "FIRST OF ALL...HOU MANY ARE PLAYING"; 

1620 INPUT R 

1710 PRINT 

1800 PRINT "VERY GOOD..." 

1890 FOR 1=1 TO 100: FOR J=1 TO 6: A(I,J)=0: NEXT J: NEXT I 

1980 F=1 

2070 FOR P=1 TO R 

2160 H=0 

2250 B=1 

2340 M=0: Q=0 

2430 FOR 1=1 TO 15: C(I)=0: NEXT I 

2520 REMARK BALL GENERATOR USING HOD '15' SYSTEM 

2610 PRINT "TYPE ROLL TO GET THE BALL GOINO." 

2700 INPUT N* 

2790 K=0: = 

2880 FOR 1 = 1 TO 20 

2970 X=INT(RND(1)*100> 

3060 FOR J=l TO 10 

3150 IF X<.15*J THEN 3330 

3240 NEXT J 

3330 C(15*J-X)=1 

3420 NEXT I 

3510 REMARK PIN DIAGRAM 

3600 PRINT "PLAYER:"P;"FRAME:";F"BALL:"B 

3690 FOR 1=0 TO 3 

3760 PRINT 

3870 FOR J=1 TO 4-1 

3960 K=K + 1 

4050 IF C(K)=1 THEN 4320 

4140 PRINT TAB(I);"+ "; 

4230 GOTO 4410 

4320 PRINT TAB(I!;"0 "; 

4410 NEXT J 



4500 
4590 


NEXT I 
PRINT ' 


,„ 






4680 


REMARK 


ROLL ANALYSIS 




4770 


FOR 1=1 


1 TO 10 






4860 


D=D+C(I) 






4950 


NEXT I 








5040 


IF D-M 


O THEN 


5220 




5130 


PRINT ' 


'GUTTER!!" 






5220 


IF BO! 


I OR DO10 


THEN 


5490 


5310 


PRINT ' 
= 3 


'STRIKE i i i i 


!" 




5400 






5490 


IF bo: 


I OR D0 10 


THEN 


5760 


5580 


PRINT ' 


'SPARE!!!!" 






5670 


Q=2 








5760 


if so: 


2 OR D>=10 


THEN 


6030 


5850 


PRINT ' 


'ERROR!!!" 






5940 


Q=1 








6030 


IF BO' 


! OR D>=10 


THEN 


6210 


6120 


PRINT ' 


'ROLL YOUR 


2ND 1 


3ALL" 


6210 


REMARK 


STORAGE OF 


THE 


SCORES 


6300 


PRINT 








6390 


A<F*P,l 


B)=D 






6480 


IF B=2 


THEN 7020 






6570 


B = 2 








6660 


M=D 








6750 


IF 0=3 


THEN 6210 






6840 


A(F*P,I 


B)=D-H 






6930 


IF Q=0 


THEN 2520 






7020 


A(F*P,; 


3) =11 






7110 


NEXT P 








7200 


F=F + 1 








7290 


IF F<11 THEM 207C 


1 




7295 


PRINT 


"FRAMES" 






7380 


FOR 1 = 


1 TO 10 






7470 


PRINT 


i; 






7560 


NEXT I 








7650 


PRINT 








7740 


FOR P = 


1 TO R 






7830 


FOR 1 = 


1 TO 3 






7920 


FOR J= 


1 TO 10 






8010 


PRINT i 


A(J*P,I>; 






8100 


NEXT J 








8105 


PRINT 








8190 


NEXT I 








8280 


PRINT 








8370 


NEXT P 








8460 


PRINT 


"DO YOU UANT ANOTHER GAME 


8550 


INPUT i 


M 






8640 


IF LEFT*(A»,1!="1 


!" THEN 2610 


8730 


END 
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Boxing 



This program simulates a three- 
round Olympic boxing match. The 
computer coaches one of the boxers 
and determines his punches and 
defenses, while you do the same for 
your boxer. At the start of the match, 
you may specify your man's best punch 
and his vulnerability. 

There are approximately seven ma- 
jor punches per round, although this 
may be varied in Statement 185. The 
best two out of three rounds wins. 

Jesse Lynch of St. Paul, Minnesota 
created this program. 



BOXING 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 



BOXING OLYMPIC STYLE (3 ROUNBS — 2 OUT OF 3 UINS) 

UHAT IS YOUR OPPONENT'S NAHE? HEATHEAD 

INPUT YOUR HAN'S NAHE? SUPERHAN 

DIFFERENT PUNCHES ARE 1 FULL SUING 2 HOOK 3 UPPERCUT 4 JAB 

UHAT IS YOUR HANS BEST? 3 

UHAT IS HIS VULNERABILITY? 2 

HEATHEAD'S ADVANTAGE IS 2 AND VULNERABILITY IS SECRET. 

ROUND 1 BEGINS... 

SUPERHAN'S PUNCH? 1 

SUPERHAN SUINGS AND HE CONNECTS! 

SUPERHAN IS ATTACKED BY AN UPPERCUT (OH, OH)... 

AND HEATHEAD CONNECTS... 
SUPERHAN'S PUNCH? 4 

SUPERHAN JABS AT HEATHEAD'S HEAD SUPERMAN'S PUNCH? 3 
SUPERHAN TRIES AN UPPERCUT AND IT'S BLOCKED (LUCKY BLOCK') 
SUPERHAN'S PUNCH? 3 

SUPERHAN TRIES AN UPPERCUT AND HE CONNECTS ■ 
SUPERHAN'S PUNCH? 3 

SUPERHAN TRIES AN UPPERCUT AND IT'S BLOCKED (LUCKY BLOCK") 
SUPERHAN'S PUNCH? 2 

SUPERHAN GIVES THE HOOK... BUT IT'S BLOCKED in mi 

SUPERHAN UINS ROUND 1 
ROUND 2 BEGINS... 

HEATHEAD TAKES A FULL SUING AND POUMH! HE HITS HIH RIOHT IN THE FACE' 

HEATHEAD TAKES A FULL SUING AND BUT IT'S BLOCKED ' 

HEATHEAD JABS AND BLOOD SPILLS !!! 

SUPERMAN'S PUNCH? 1 

SUPERHAN SUINGS AND HE CONNECTS! 

HEATHEAD JABS AND IT'S BLOCKED ! 

SUPERHAN IS ATTACKED BY AN UPPERCUT (OH, OH)... 

BLOCKS AND HITS HEATHEAD UITH A HOOK. 
HEATHEAD TAKES A FULL SUING AND BUT IT'S BLOCKED i 
HEATHEAD UINS ROUND 2 
ROUND 3 BEGINS... 

SUPERHAN'S PUNCH? 4 

SUPERHAN JABS AT HEATHEAD'S HEAD SUPERMAN'S PUNCH? 3 

SUPERHAN TRIES AN UPPERCUT AND HE CONNECTS! 

SUPERHAN'S PUNCH? 3 

SUPERMAN TRIES AN UPPERCUT AND IT'S BLOCKED (LUCKY BLOCK I) 

HEATHEAD TAKES A FULL SUING AND POU!!!!! HE HITS HIH RIGHT IN THE FACE' 

SUPERMAN'S PUNCH? 1 

SUPERMAN SUINGS AND HE CONNECTS! 

SUPERMAN'S PUNCH? t 

SUPERHAN SUINGS AND HE CONNECTS! 

SUPERHAN'S PUNCH? 3 

SUPERMAN TRIES AN UPPERCUT AND IT'S BLOCKED (LUCKY BLOCK ■ ) 

SUPERMAN UINS ROUND 3 

SUPERHAN AMAZINGLY UINS 



AND NOU GOODBYE FROM THE OLYHPIC ARENA. 
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1 PRINT TAB(33);"B0XING" 

2 PRINT TAB(15);"CREATIVE COHPUTIND HORRISTOUN, NEU JERSEY" 

3 PRINT:PRINT:PRINT 

4'PRINT "BOXING OLYMPIC STYLE (3 ROUNDS — 2 OUT OF 3 UINS)" 

5 J=0 

6 L=0 

10 PRINT "UHAT IS YOUR OPPONENT'S NAHE"; 

20 INPUT J» 

30 PRINT "INPUT YOUR HAN'S NAHE"; 

40 INPUT L$ 

50 PRINT "DIFFERENT PUNCHES ARE 1 FULL SUING 2 HOOK 3 UPPERCUT 4 JAB" 

40 PRINT "UHAT IS YOUR HANS BEST"; 

44 INPUT B 

70 PRINT "UHAT IS HIS VULNERABILITY"; 

80 INPUT D 

90 B1=INT(4*RND(1>+1) 

100 D1=INT(4*RND(1)+1) 

110 IF B1=D1 THEN 90 

120 PRINT J»;"'S ADVANTAGE IS";B1;"AND VULNERABILITY IS SECRET." 

130 FOR R=1 TO 3 

140 IF J>= 2 THEN 1040 

150 IF L> = 2 THEN 1060 

160 X=0 

170 Y=0 

1B0 PRINT "ROUND";R;"BEGINS..." 

181 PRINT "" 

185 FOR R1 = 1 TO 7 

190 I = INT(10*RND(1H1) 

200 IF I>5 THEN 600 

210 PRINT L»;'"S PUNCH"; 

220 INPUT P 

221 IF P=B THEN 22b 

222 GOTO 230 
225 X=X+2 

230 IF P=»1 THEN 340 
240 IF P=2 THEN 450 
250 IF P=3 THEN 520 

270 PRINT L»;" JABS AT ";J»"'S HEAD "; 

271 IF DIM THEN 290 
275 C=INT(8»RND<1>+1> 
280 IF C<4 THEN 310 
290 X=X+3 

300 GOTO 950 

310 PRINT "IT'S BLOCKED" 

330 GOTO 950 

340 PRINT U " SUINGS AND "; 

341 IF DIM THEN 410 
345 X3=INT(30*RND(1)+1) 
350 IF X3<10 THEN 410 
360 PRINT " HE HISSES "; 
370 PRINT 

375 IF X=1 THEN 950 
3B0 PRINT 
390 PRINT 

400 GOTO 300 

410 PRINT "HE CONNECTS!" 

420 IF X>35 THEN 980 

425 X=X+15 

440 GOTO 300 

450 PRINT L*;" GIVES THE HOOK... "; 

455 IF D1=2 THEN 480 

460 H1=INT(2*RND(1)t1) 

470 IF H1 =1 THEN 500 

475 PRINT "CONNECTS..." 

480 X=X+7 

490 GOTO 300 

500 PRINT "BUT IT'S BLOCKED!!!!!!!!!"!!" 

510 GOTO 300 

520 PRINT L« " TRIES AN UPPERCUT "; 

530 IF D1=3 THEN 570 

540 D5=INT(100»RND(1>+1) 

550 IF D5<51 THEN 570 

560 PRINT " AND IT'S BLOCKED (LUCKY BLOCK!)" 

565 GOTO 300 

570 PRINT "AND HE CONNECTS!" 

580 X = X+4 

590 GOTO 300 

600 J7=INT(4*RND(1)+1) 

401 IF J7 =B1 THEN 605 
602 GOTO 410 

405 Y=Yt2 

410 IF J7=1 THEN 720 

620 IF J7=2 THEN 810 

630 IF J7 =3 THEN 860 

640 PRINT J*;" JABS AND "; 

445 IF DM THEN 700 

450 Z4 = INT(7*RND(1>M> 

655 IF Z4>4 THEN 690 

660 PRINT " IT'S BLOCKED !" 

670 GOTO 300 

490 PRINT " BLOOD SPILLS !!!" 



700 Y=Y+5 

710 GOTO 300 

720 PRINT Jl" TAKES A FULL SUING AND"; 

730 IF 8=1 THEN 770 

740 R6=INT(40*RND<1>+1> 

745 IF R6 <30 THEN 770 

750 PRINT " BUT IT'S BLOCKED !" 

760 GOTO 300 

770 PRINT " POUMM! HE HITS HIH RIGHT IN THE FACE!" 

780 IF Y>35 THEN 1010 

790 Y=Yt15 

800 GOTO 300 

810 PRINT J$;" GETS ";L*;" IN THE JAU (OUCH!)" 

820 Y=Y*7 

830 PRINT " AND AGAIN!" 

835 Y=Y*5 

840 IF Y>35 THEN 1010 

850 PRINT 

860 PRINT LI;" IS ATTACKED BY AN UPPERCUT (OH, OH)..." 

865 IF D=3 THEN 890 

870 Q4=INT(200»RND(1)t1) 

880 IF 04>75 THEN 920 

890 PRINT " AND ";J$;» CONNECTS..." 

900 Y=Yt8 

910 GOTO 300 

920 PRINT " BLOCKS AND HITS ";J$;» UITH A HOOK." 

930 X=X+5 

940 GOTO 300 

950 NEXT R1 

951 IF X>Y THEN 955 

952 PRINT J$" UINS ROUND" R 

953 J=J+1 

954 GOTO 960 

955 PRINT L$" UINS ROUND "R 

956 L=L*1 

960 NEXT R 

961 IF J>= 2 THEN 1040 

962 IF L>=2 THEN 1060 

980 PRINT J» " IS KNOCKEO COLD AND " L«" IS THE UINNER AND CHAHP "; 

1000 60T0 1080 

1010 PRINT L$ " IS KNOCKED COLD AND " J»" IS THE UINNER AND CHAHP "; 

1030 GOTO 1000 

1040 PRINT J» " UINS (NICE GOING )" J$ 

1050 GOTO 1000 

1060 PRINT L» " AHAZINGLY UINS " 

1070 60T0 1000 

1080 PRINT 

1085 PRINT 

1090 PRINT "AND NOU GOODBYE FROM THE OLYHPIC ARENA." 

1100 PRINT 

1110 END 
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Bug 



The object of this game is to finish 
your drawing of a bug before the 
computer finishes. 

You and the computer roll a die 
alternately with each number standing 
for a part of the bug. You must add the 
parts in the right order; in other words, 
you cannot have a neck until you have a 
body, you cannot have a head until you 
have a neck, and so on. After each new 
part has been added, you have the 
option of seeing pictures of the two 
bugs. 

If you elect to see all the pictures, this 
program has the ability of consuming 
well over six feet of terminal paper per 
run. We can only suggest recycling the 
paper by using the other side. 

Brian Leibowitz wrote this program 
while in the 7th grade at Harrison Jr-Sr 
High School in Harrison, New York. 



BUG 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 



THE GAHE BUG 

I HOPE YOU ENJOY THIS GAHE. 

DO YOU UANT INSTRUCTIONS? YES 

THE OBJECT OF BUG IS TO FINISH YOUR BUO BEFORE I FINISH 

HINE. EACH NUHBER STANBS FOR A PART OF THE BUG BODY. 

I UILL ROLL THE DIE FOR YOU, TELL YOU UHAT I ROLLED FOR YOU 

UHAT THE NUHBER STANDS FOR, AND IF YOU CAN GET THE PART. 

IF YOU CAN GET THE PART I UILL GIVE IT TO YOU. 

THE SAME UILL HAPPEN ON HY TURN. 

IF THERE IS A CHANGE IN EITHER BUG I UILL GIVE YOU THE 

OPTION OF SEEING THE PICTURES OF THE BUGS. 

THE NUMBERS STAND FOR PARTS AS FOLLOUS: 



NUHBER 


PART 


NUHBER OF PART NEEDED 


1 


BODY 


1 


2 


NECK 


1 


3 


HEAD 


1 


4 


FEELERS 


2 


S 


TAIL 


1 


6 


LEGS 


6 


YOU ROLLED A 


1 




t'BODY 






YOU NOU HAVE 


A BODY. 




I ROLLED A 4 






4«FEELERS 






I DO NOT HAVE 


: A HEAD. 




DO YOU UANT THE PICTURES? 


YES 


• ♦•♦♦YOUR BU6»*»« 






BDBBBBBBBBBB 



I ROLLED A 6 




3=HEAD 


&-LEGS 




YOU NEEDED A HEAD. 


I NOU HAVE 4 LEGS. 


I ROLLED A 3 


DO YOU UANT THE 


PICTURES? NO 


3-HEAD 


YOU ROLLED A 1 




I DO NOT NEED A HEAD. 


1=B0DY 




DO YOU UANT THE PICTURES? NO 


YOU DO NOT NEED 


A BODY. 


YOU ROLLED A 3 


I ROLLED A 3 




5=TAU 


3=HEAD 




YOU ALREADY HAVE A TAIL. 


I DO NOT NEED A 


HEAD. 


I ROLLED A 3 


YOU ROLLED A 1 




5=TAIL 


1=B0DY 




I DO NOT NEED A TAIL. 


YOU DO NOT NEED 


A BODY. 


YOU ROLLED A 2 


I ROLLED A 1 




2-HECK 


1=B0DY 




YOU DO NOT NEED A NECK. 


I DO NOT NEED A 


BODY. 


I ROLLED A i 


YOU ROLLED A S 




4-LEGS 


3=TAIL 




I NOU HAVE 6 LEOS. 


YOU ALREADY HAVE A TAIL. 


HY BUG IS FINISHED. 


I ROLLED A 1 




DO YOU UANT THE PICTURES? YES 


1=D0DY 




• ♦♦♦♦YOUR BU6^»» 


I DO NOT NEED A 


BODY. 




YOU ROLLED A 3 






5»TAIL 




HHHHHHH 


YOU ALREADY HAVE 


: A TAIL. 


H H 


I ROLLED A 6 




H H 


<S=LEGS 




H H 


I NOU HAVE S LEGS. 


H V H 


DO YOU UANT THE 


PICTURES? NO 


HHHHHHH 


YOU ROLLED A 5 




N N 


5"TAIL 




N N 


YOU ALREADY HAVE 


: A TAIL. 


BBBBBBBBBBBB 


I ROLLED A 4 




B B 


4*FEELERS 




B B 


I GET A FEELER. 




TTTTTB B 


DO YOU UANT THE 


PICTURES? NO 


BBBBBBBBBBBB 


YOU ROLLED A 2 




L L L 


2-NECK 




L L L 


YOU DO NOT NEED 


A NECK. 




I ROLLED A 2 






2»NECK 






I DO NOT NEED A 


NECK. 




YOU ROLLED A 4 




•♦♦••♦HY BUG»*«« 


4=FEELERS 






YOU DO NOT HAVE 


A HEAD. 




I ROLLED A 1 






1«B0DY 




F F 


I DO NOT NEED A 


BODY. 


F F 


YOU ROLLED A 2 




F F 


2'NECK 




F F 


YOU DO NOT NEED 


A NECK. 


HHHHHHH 


I ROLLED A 3 




H H 


3=HEAD 




H H 


I DO NOT NEED A 


HEAD. 


H H 


YOU ROLLED A 5 




H V H 


5=TAIL 




HHHHHHH 


YOU ALREADY HAVE 


A TAIL. 


N N 


I ROLLED A 3 




N N 


5=TAIL 




BBBBBBBBBBBB 


I DO NOT NEED A 


TAIL. 


B B 


YOU ROLLED A <S 




B B 


6=1. EG 




TTTTTB B 


YOU NOU HAVE 3 


LEGS. 


BBBBBBBBBBBB 


I ROLLED A 2 




L L L L L L 


2=NECK 




L L L L L L 


I DO NOT NEED A 


NECK. 


I HOPE YOU ENJOYED THE OAHE, ( 
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NORRISTOUN, NEU JERSEY" 



10 PRINT TAB (34); "BUB" 

20 PRINT TABU5);"CREATIVE COHPUTING 

30 PRINT:PRINT:PRINT 

40 REN 

50 A=0: B=0: H»0: L=0: H=0: P=0: 0=0: R=0: S=0i T=0: U=0: V=0: Y=0 

(SO PRINT "THE GAME BUG 

70 PRINT "I HOPE YOU ENJOT THIS OAHE." 

SO PRINT 

90 PRINT "DO TOU UANT INSTRUCTIONS"; 

100 INPUT U 

110 IF Z«="NO" THEN 300 

120 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUD BEFORE I FINISH" 

HINE. EACH NUNBER STANDS FOR A PART OF THE BUG BODY." 

I Ultl ROLL THE DIE FOR YOU, TELL YOU UHAT I ROLLED FOR YOU" 
150 PRINT "UHAT THE NUNBER STANDS FOR, AND IF YOU CAN GET THE PART." 
160 PRINT "IF YOU CAN GET THE PART I UILL GIVE IT TO YOU." 

THE SAHE UILL HAPPEN ON HY TURN." 

IF THERE IS A CHANGE IN EITHER BUG I UILL GIVE YOU THE" 
190 PRINT "OPTION OF SEEING THE PICTURES OF THE BUSS." 

200 PRINT "THE NUNBERS STAND FOR PARTS AS FQLLOUS:" pp)IHT „„„ .„ 
210 PRINT "NUMBER", "PART", "NUNBER OF PART NEEDED" if "?*!"__! uu Nuu Hflvt ' L ' LEBS 
220 PRINT "1","B0DY","1" 



130 PRINT 
140 PRINT 



170 PRINT 
180 PRINT 



230 PRINT "2", "NECK", "1" 

240 PRINT "3", "HEAD", "1" 

250 PRINT "4", "FEELERS", "2" 

260 PRINT "5", "TAIL", "1" 

270 PRINT "6", "LEGS", "6" 

280 PRINT 

290 PRINT 

300 IF Y>0 THEN 2480 

310 Z=INT(6*RND<1)*1) 

320 C=1 

330 PRINT "YOU ROLLED A ";Z 

340 ON Z BOIO 350,430,540,650,760,870 

350 PRINT "1=B0DY" 

360 IF B=l THEN 410 

370 PRINT "YOU NOU HAVE A BODY." 

3B0 B»1 

390 C=0 

400 GOTO 970 

410 PRINT "YOU DO NOT NEED A BODY." 

420 OOTO 970 

430 PRINT "2=NECK" 

440 IF N»1 THEN 500 

450 IF B*0 THEN 520 

460 PRINT "YOU NOU HAVE A NECK." 

470 N-l 

480 C=0 

490 GOTO 970 

500 PRINT "YOU DO NOT NEED A NECK." 

510 GOTO 970 

520 PRINT "YOU DO NOT HAVE A BODY." 

530 GOTO 970 

540 PRINT "3=HEAD" 

550 IF N=0 THEN 610 

560 IF H»1 THEN 630 

570 PRINT "YOU NEEDED A HEAD." 

580 H=l 

590 C=0 

600 GOTO 970 

610 PRINT "YOU DO NOT HAVE A NECK." 

620 GOTO 970 

630 PRINT "YOU HAVE A HEAD." 

640 GOTO 970 

650 PRINT "4=FEELERS" 

660 IF H=0 THEN 740 

670 IF A=2 THEN 720 

680 PRINT "I NOU GIVE YOU A FEELER" 

690 A=A+1 

700 C=0 

710 GOTO 970 

720 PRINT "YOU HAVE TUO FEELERS ALREADY. 

730 GOTO 970 

740 PRINT "YOU DO NOT HAVE A HEAD." 

750 GOTO 970 

760 PRINT "5*TAIL" 

770 IF B=0 THEN 830 

780 IF T=1 THEN 850 

790 PRINT "I NOU GIVE YOU A TAIL." 

800 T=T+I 

810 C=0 

820 GOTO 970 

830 PRINT "YOU DO NOT HAVE A BODY." 

840 GOTO 970 

850 PRINT "YOU ALREADY HAVE A TAIL." 

860 GOTO 970 

870 PRINT "6=LEG" 

880 IF L*6 THEN 940 

890 IF B=0 THEN 960 

900 L=L+1 

910 C-0 



930 GOTO 970 

940 PRINT "YOU HAVE 6 FEET ALREADY." 

950 GOTO 970 

960 PRINT "YOU DO NOT HAVE A BODY." 

970 X»INT(6*RND(1)+I) 

980 PRINT "I ROLLED A";X 

990 ON X 60T0 1000,1080,1190,1300,141 

1000 PRINT "1=B0DY" 

1010 IF P=1 THEN 1060 

1020 PRINT "I NOU HAVE A BODY." 

1030 C=0 

1040 P=1 

1050 60T0 1630 

1060 PRINT "I DO NOT NEED A BODY." 

1070 OOTO 1630 

1080 PRINT "2=NECK" 

1090 IF 0=1 THEN 1150 

1100 IF P=0 THEN 1170 

1110 PRINT "I NOU HAVE A NECK." 

1120 Q»1 

1130 C=0 

1140 GOTO 1630 

1150 PRINT "I DO NOT NEED A NECK." 

1160 GOTO 1630 

1170 PRINT "I DO NOT HAVE A BODY." 

1180 GOTO 1630 

1190 PRINT "3«HEAD" 

1200 IF 0=0 THEN 1260 

1210 IF R=1 THEN 1280 

1220 PRINT "I NEEDED A HEAD." 

1230 R=1 

1240 C=0 

1250 GOTO 1630 

1260 PRINT "I DO NOT HAVE A NECK." 

1270 GOTO 1630 

1280 PRINT "I DO NOT NEED A HEAD." 

1290 GOTO 1630 

1300 PRINT "4=FEELERS" 

1310 IF R=0 THEN 1390 

1320 IF S=2 THEN 1370 

1330 PRINT "I GET A FEELER." 

1340 S=S+1 

1350 C=0 

1360 GOTO 1630 

1370 PRINT "I HAVE 2 FEELERS ALREADY. 

1380 GOTO 1630 

1390 PRINT "I DO NOT HAVE A HEAD." 

1400 GOTO 1630 

1410 PRINT "5*TAIL" 

1420 IF P=0 THEN 1480 

1430 IF U*1 THEN 1500 

1440 PRINT "I NOU HAVE A TAIL." 

1450 U=1 

1460 C=0 

1470 GOTO 1630 

1480 PRINT "I DO NOT HAVE A BODY." 

1490 GOTO 1630 

1500 PRINT "I DO NOT NEED A TAIL." 

1510 GOTO 1630 

1520 PRINT "6=LEGS" 

1530 IF V»6 THEN 1590 

1540 IF P=0 THEN 1610 

1550 V=V+1 

1560 C=0 

1570 PRINT "I NOU HAVE";V;"LEOS." 

1580 GOTO 1630 

1590 PRINT, "I HAVE 6 FEET." 

1600 GOTO 1630 

1610 PRINT "I DO NOT HAVE A BODY." 

1620 GOTO 1630 

1630 IF A*2 AND T=1 AND L=6 THEN 1650 



1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
0,15201910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280' 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 



60T0 1670 

PRINT "YOUR BUG IS FINISHED." 

Y=Y*1 

IF S=2 AND P=1 AND V=6 THEN 1690 

GOTO 1710 

PRINT "HY BUG IS FINISHED." 

Y=Y*2 

IF C»l THEN 300 

PRINT "DO YOU UANT THE PICTURES"; 

INPUT Z» 

IF ZI="NO" THEN 300 

PRINT "»»«»»YOUR BUG**»**" 

PRINT 

PRINT 

IF A=0 THEN I860 

FOR Z=1 TO 4 

FOR X=1 TO A 

PRINT TABOO); 

PRINT "A "; 

NEXT X 

PRINT 

NEXT Z 

IF H=0 THEN 1880 

GOSUB 2470 

IF N=0 THEN 1920 

FOR Z=1 TO 2 

PRINT " N N" 

NEXT Z 

IF B=0 THEN 2000 



BBBBBBBBBBBB" 



TO 4 



"»*»*»»HY BUG*»**»*" 



PRINT 

FOR Z=l TO 2 

PRINT " B 

NEXT Z 

IF TOI THEN 1990 

PRINT "TTTTTB 

PRINT 

IF L"0 THEN 2080 

FOR Z«l TO 2 

PRINT TAB(5); 

FOR X=l TO L 

PRINT " L"; 

NEXT X 

PRINT 

NEXT Z 

FOR Z=1 

PRINT 

NEXT Z 

PRINT 

PRINT 

PRINT 

PRINT 

IF S=0 THEN 2230 

FOR Z=1 TO 4 

PRINT TAB(IO); 

FOR X=1 TO S 

PRINT "F "; 

NEXT X 

PRINT 

NEXT Z 

IF ROI THEN 2250 

GOSUB 2470 

IF 0=0 THEN 2280 

PRINT " N N" 

PRINT " N N" 

IF P=0 THEN 2360 

PRINT 

FOR Z=1 TO 2 

PRINT " B 

NEXT Z 

IF UOI THEN 2350 

PRINT "TTTTTB 

PRINT 

IF V=0 THEN 2450 

FOR Z=l TO 2 

PRINT TAB<5>; 

FOR X=1 TO V 

PRINT " L"; 

NEXT X 

PRINT 

NEXT Z 

IF YOO THEN 2540 

GOTO 300 

PRINT " HHHHHHH" 

PRINT " H H" 

PRINT " H H" 

PRINT " H H" 

PRINT " H V H" 

PRINT " HHHHHHH" 

RETURN 

PRINT "I HOPE YOU ENJOYED THE GAHE, 

END PLAY IT AGAIN SOONI!" 
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Bullfight 



In this simulated bullfight, you are 
the matador — i.e., the one with the 
principal roleand theonewhomustkill 
the bull or be killed (or run from the 
ring). 

On each pass of the bull, you may try: 

Veronica (dangerous inside move 
of the cape) 

1 Less dangerous outside move of 
the cape 

2 Ordinary swirl of the cape 
Or you may try to kill the bull: 

4 Over the horns 

5 In the chest 
The crowd wil 

award you deserve, 
necessary. The braver you are, the 
better the award you receive. It's nice to 
stay alive too. The better the job the 
picadores and toreadores do, the 
better your chances. 

David Sweet of Dartmouth wrote the 
original version of this program. It was 
then modified by students at Lexington 
High School and finally by Steve North 
of Creative Computing. 



determine what 
posthumously if 



PASS NUHBER 1 

THE BULL IS CHARGING AT YOU! YOU ARE THE NATADOR- 

DO YOU UANT TO KILL THE BULL? NO 

UHAT HOVE BO YOU HAKE UITH THE CAPE? 



PASS NUHBER 2 

THE BULL IS CHARGING AT YOU! YOU ARE THE HATADOR- 

BO YOU UANT TO KILL THE BULL? NO 

UHAT HOVE BO YOU HAKE UITH THE CAPE? 1 



PASS NUHBER 3 

HERE COHES THE BULL. 

CAPE HOVE? 1 



TRY FOR A KILL? NO 



PASS NUMBER 4 

HERE COHES THE BULL. TRY FOR A KILL? NO 

CAPE HOVE? 



PASS NUMBER 5 

HERE COHES THE BULL. TRY FOR A KILL? NO 

CAPE HOVE? 2 



PASS NUHBER i 

HERE COHES THE BULL. TRY FOR A KILL? NO 

CAPE HOVE? t 



PASS NUHBER 7 

HERE COHES THE BULL. TRY FOR A KILL? NO 

CAPE HOVE? 



BULL 
CREATIVE CONPUTING HORRISTOUN, NEU JERSEY 



PASS NUNBER 

HERE COHES THE BULL. TRY FOR A KILL? YES 

IT IS THE MOHENT OF TRUTH. 

HOU BO YOU TRY TO KILL THE BULL? 5 

THE BULL HAS GOREB YOU 

YOU ARE BEAD 



BO YOU UANT INSTRUCTIONS? YES 

HELLO, ALL YOU BLOODLOVERS AND AFICIONABOS 

HERE IS YOUR BIG CHANCE TO KILL A BULL 



THE CROUD AUARBS YOU 
ONE EAR UF THE BULL 



ADIOS 



ON EACH PASS OF THE BULL, YOU HAY TRY 

- VERONICA (DANGEROUS INSIDE HOVE OF THE CAPE) 

1 - LESS DANGEROUS OUTSIDE HOVE OF THE CAPE 

2 - ORDINARY SUIRL OF THE CAPE 

INSTEAD OF THE ABOVE, YOU HAY TRY TO KILL THE BULL 
ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST) 
BUT IF I UERE YOU, 
I UOULDN'T TRY IT BEFORE THE SEVENTH PASS. 

THE CROUD UILL DETERMINE UHAT AUARD YOU DESERVE 

POSTHUMOUSLY IF NECESSARY 

THE BRAVER YOU ARE, THE BETTER THE AUARD YOU RECEIVE 

THE BETTER A JOB THE PICABORES AND TOREADORES DO, 
THE BETTER YOUR CHANCES ARE 



YOU HAVE DRAUN A POOR BULL. 



DO YOU UANT INSTRUCTIONS? NO 



YOU HAVE BRAUN A SUPERB BULL. 
GOOD LUCK. YOU'LL NEED IT. 



THE PICADORES DID A SUPERB JOB. 
THE TOREADORES DID A SUPERB JOB. 



PASS NUHBER 1 

THE BULL IS CHARGING AT YOU! YOU ARE THE MATABOR- 

DO YOU UANT TO KILL THE BULL? NO 

UHAT HOVE BO YOU MAKE UITH THE CAPE? 2 

THE BULL HAS GOREB YOU 

YOU ARE BEAD 



THE PICADORES DID A AUFUL JOB. 
2 OF THE HORSES OF THE PICADORES KILLED. 

1 OF THE PICADORES KILLED. 

THE TOREADORES DIB A AUFUL JOB. 

2 OF THE TOREADORES KILLED. 



THE CROUD AUARDS YOU 
ONE EAR OF THE BULL 



ADIOS 
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"ON EACH PASS OF THE BULL, YOU NAY TRY" 
"0 - VERONICA (DANGEROUS INSIDE HOVE OF THE CAPE)" 
"1 - LESS DANGEROUS OUTSIDE HOME OF THE CAFE" 
"2 - ORDINARY 5UIRL OF THE CAPE" 

"INSTEAD OF THE ABOVE, YOU HAY TRY TO KILL THE BULL" 
"ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)" 
"BUT IF I HERE YOU," 
"1 WOULDN'T TRY IT BEFORE THE SEVENTH PASS." 

"THE CROUD UILL DETERHINE UHAT AUARD YOU DESERVE" 

"POSTHUHOUSLY IF NECESSARY" 

"THE BRAVER YOU ARE, THE BETTER THE AUARD YOU RECEIVE" 

"THE BETTER A JOB THE PICADORES AND TOREADORES DO," 
"THE BETTER YOUR CHANCES ARE" 



10 PRINT TAB(34);"BULL" 

20 PRINT TAB(15);"CREATIVE C0HPUTIN6 MORRISTOUN, NEU JERSEY" 

30 DEF FNA<K)=INT(RND(I)*2+1> 

200 PRINT:PRINT:PRINT 

202 L=1 

205 PRINT "DO YOU UANT INSTRUCTIONS"; 

206 INPUT Z» 

207 IF Z«="NO" THEN 400 

210 PRINT "HELLO, ALL YOU BLOODLOMERS AND AFICIONADOS" 

220 PRINT "HERE IS YOUR DIG CHANCE TO KILL A BULL" 

230 PRINT 

240 PRINT 

250 PRINT 

260 PRINT 

270 PRINT 

280 PRINT 

290 PRINT 

300 PRINT 

310 PRINT 

320 PRINT 

330 PRINT 

340 PRINT 

350 PRINT 

360 PRINT 

370 PRINT 

3B0 PRINT 

390 PRINT 

400 PRINT 

410 PRINT 

420 D(5)=l 

430 D(4)=1 

450 DIN L»(5) 

455 A=INT(RND(1)*5+1) 

460 FOR 1=1 TO 5 

463 READ Ltd) 

467 NEXT I 

470 DATA "SUPERB", "GOOD", "FAIR", "POOR", "AUFUL" 

490 PRINT "YOU HAVE DRAUN A ";L»(A);" BULL." 

500 IF A>4 THEN 530 

510 IF A<2 THEN 550 

520 GOTO 570 

530 PRINT "YOU'RE LUCKY." 

540 GOTO 570 

550 PRINT "GOOD LUCK. YOU'LL NEED IT." 

560 PRINT 

570 PRINT 

590 A»="PICADO" 

595 B»="RES" 

600 GOSUB 1610 

610 D(1)=C 

630 A»="TOREAD" 

635 B»="ORES" 

640 GOSUB 1610 

650 D(2)=C 

660 PRINT 

670 PRINT 

680 IF Z=1 THEN 1310 

690 D(3)=D(3)+1 

700 PRINT "PASS NUMBER";D(3> 

710 IF D(3)<3 THEN 760 

720 PRINT "HERE CQHES THE BULL. TRY FOR A KILL"; 

730 GOSUB 1930 

735 IF Z1 = 1 THEN 1 1 30 

740 PRINT "CAPE MOVE"; 

750 GOTO 800 

760 PRINT "THE BULL IS CHARGING AT YOU! YOU ARE THE HATADOR- 

770 PRINT "DO YOU UANT TO KILL THE BULL"; 

780 GOSUB 1930 

785 IF Z 1 = 1 THEN 1130 

790 PRINT "UHAT HOVE DO YOU MAKE UITH THE CAPE"; 

800 INPUT E 

810 IF EOINTIABS(E)) THEN 830 

820 IF E<3 THEN 850 

830 PRINT "DON'T PANIC, YOU IDIOT! PUT DOUN A CORRECT NUMBER 

840 GOTO 800 

850 REM 

860 IF E=0 THEN 920 

870 IF E=1 THEN 900 

880 N=.5 

890 GOTO 930 

VOO H=2 

910 GOTO 930 

920. M=3 

930 L=L+N 

940 F=(6-A+H/10)*RND(1 )/( (D( 1 ) + D(2HD<3)/10)»5) 

950 IF F<.51 THEN 660 

960 PRINT "THE BULL HAS GORED YOU" 

970 ON FNA(O) GOTO 980,1010 

980 PRINT "YOU ARE DEAD" 

990 D(4)=1.5 

1000 GOTO 1310 



1010 PRINT "YOU ARE STILL ALIVE" 

1020 PRINT "DO YOU RUN FROM THE RING"; 

1030 GOSUB 1930 

1035 IF Zl=2 THEN 1070 

1040 PRINT "COUARD" 

1050 B(4)=0 

1060 GOTO 1310 

1070 PRINT "YOU ARE BRAVE. STUPID, BUT BRAVE." 

1080 ON FNA(O) GOTO 1090,1110 

1090 D(4)=2 

1100 GOTO 660 

1110 PRINT "YOU ARE GORED AGAIN" 

1120 GOTO 970 

1130 REM 

1140 Z=1 

1150 PRINT "IT IS THE MOMENT OF TRUTH." 

1155 PRINT "HOU DO YOU TRY TO KILL THE BULL"; 

1160 INPUT H 

1170 IF H=4 THEN 1230 

1180 IF H=5 THEN 1230 

1190 PRINT "YOU PANICKED. THE BULL BORED YOU." 

1220 GOTO 970 

1230 K=(6-A)»I0»RND(1)/((D<1)+D(2))*5*D(3>> 

1240 IF J=4 THEN 1290 

1250 IF K>.2 THEN 960 

1260 PRINT "YOU KILLED THE BULL" 

1270 D(5)=2 

1280 GOTO 1320 

1290 IF K>.8 THEN 960 

1300 GOTO 1260 

1310 PRINT 

1320 PRINT 

1330 PRINT 

1340 IF D(4)<>0 THEN 1390 

1350 PRINT "THE CROUD BOOS FOR TEN HINUTES. IF YOU EVER DARE TO SHOU 

1360 PRINT "YOUR FACE IN A RING AGAIN, THEY SUEAR THEY UILL KILL YOU- 

1370 PRINT "UNLES THE BULL DOES FIRST." 

1380 GOTO 1580 

1390 BEF FNC(Q)=FND(0)*RND(1) 

1395 DEF FND(Q) = (4.5H/6-(D(1)tD(2))*2.5+4*D(4) + 2*D<5)-D<3) 2/120-A) 

1400 IF D(4)<>2 THE"N 1430 

1410 PRINT "THE CROUD CHEERS UILDLY" 

1420 GOTO 1450 

1430 IF D(5)<>2 THEN 1450 

1440 PRINT "THE CROUD CHEERS" 

1450 PRINT "THE CROUD AUARDS YOU" 

1460 IF FNCIQK2.4 THEN 1570 

1470 IF FNCI0X4.9 THEN 1550 

1480 IF FNCIQX7.4 THEN 1520 

1500 PRINT "OLE! YOU ARE 'MUY HOMBRE'!! OLE! OLE!" 

1510 GOTO 1580 

1520 PRINT "BOTH EARS OF THE BULL" 

1530 PRINT "OLE!" 

1540 GOTO 1580 

1550 PRINT "ONE EAR OF THE BULL" 

1560 GOTO 1580 

1570 PRINT "NOTHING AT ALL" 

1580 PRINT 

1590 PRINT "ADIOS" 

1600 GOTO 2030 

1610 B«3/A*RND(1) 

1620 IF B<.37 THEN 1740 

1630 IF B<.5 THEN 1720 

1640 IF B<.63 THEN 1700 

1650 IF B<.87 THEN 1680 

1660 C=.1 

1670 GOTO 1750 

1680 C=.2 

1690 GOTO 1750 

1700 C=.3 

1710 GOTO 1750 

1720 C=.4 

1730 GOTO 1750 

1740 C=.5 

1750 T=INT(10*C+.2) 

1760 PRINT "THE ";AS;B»; 

1770 IF 4>T THEN 1900 

1780 IF 5=T THEN 1870 

1790 ON FNA(K) GOTO 1830,1850 

1800 IF A»="!QREAD" THEN 1820 

1810 PRINT "ONE OF THE HORSES OF THE ";A»;B»;" UAS KILLED." 

1820 OF FNA(K) GOTO 1830,1850 

1830 PRINT "ONE OF THE ";A*;B»;" UAS KILLED." 

1840 GOTO 1900 

1850 PRINT "NO ";A*;B»;" UERE KILLED." 

1860 GOTO 1900 

1870 If AI="TOREAD" THEN 1890 

1880 PRINT FNA(K);"OF THE HORSES OF THE ";A»;B»;" KILLED." 

1890 PRINT FNA(K)J"OF THE ";A*;B»;" KILLED." 

1900 PRINT 

1910 RETURN 



1920 REM 

1930 INPUT A$ 

1940 IF A»="YES" THEN 1990 

1950 IF A$="NO" THEN 2010 

1970 PRINT "INCORRECT ANSUER 

1980 GOTO 1930 

1990 Z I = 1 

2000 GOTO 2020 

2010 Zl=2 

2020 RETURN 

2030 END 

" DID A ";L$m;" JUB." 



PLEASE TYPE 'YES' OR NO' 
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Bullscye 



In this game, up to 20 players throw 
darts at a target with 10-, 20-, 30-, and 
40-point zones. The objective is to get 
200 points. 

You have a choice of three methods 
of throwing: 

Throw Description 

1 Fast overarm 

2 Controlled overarm 

3 Underarm 

You will find after playing a while that 
different players will swear by different 
strategies. However, consider the ex- 
pected score per throw by always using 
Throw 3 (program line 220): 



Probable Score 

Bullseye or complete miss 
10, 20, or 30 points 
Anything 



Score (S) 

40 
30 
30 
10 




Probability (P) 

1 .00-.95 = .05 
.95-75 = .20 
J5-.45 = .30 
.45-.05 = .40 
.05-.00 = .05 



Expected score per throw = 



SxP 

2 
6 
6 

4 



18 



Calculate the expected scores for the 
other throws and you may be sur- 
prised! 

The program was written by David 
Ahl of Creative Computing, 




ROUND 4 

STEVE'S THROU? 1 
30-POINT ZONE! 
TOTAL SCORE = 120 

DARTH'S THRQU? 2 
UHEUI 10 POINTS. 
TOTAL SCORE = 10 

ROUND 7 

STEVE'S THROU? 2 
UHEU! 10 POINTS. 
TOTAL SCORE = 130 

DARTH'S THROU? 3 

HISSED THE TARGET! TOO BAD. 

TOTAL SCORE = 40 

ROUND 8 

STEVE'S THROU? 1 
BULLSEYE!! 40 POINTS! 
TOTAL SCORE ■ 170 



DARTH'S THROU? 2 
UHEU! 10 POINTS. 
TOTAL SCORE - 50 

ROUND ? 

STEVE'S THROU? 2 
20-POINT ZONE 
TOTAL SCORE • 190 

DARTH'S THROU? 1 

HISSED THE TARGET! TOO BAD. 

TOTAL SCORE • 50 

ROUND tO 

STEVE'S THROU? 2 
20-POINT ZONE 
TOTAL SCORE = 210 

DARTH'S THROU? 1 

MISSED THE TARGET! TOO BAD. 

TOTAL SCORE = 50 

UE HAVE A WINNER!! 

STEVE SCORED 210 POINTS. 



BULLSEYE 
CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY 



IN THIS GAME, UP TO 20 PLAYERS THROU DARTS AT A TARGET 
UITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS 
TO GET 200 POINTS. 



THANKS FOR THE GAHE. 



THROU 
1 
2 
3 

HOU HANY PLAYERS? 2 



DESCRIPTION 
FAST OVERARM 
CONTROLLED OVERARH 
UNDERARH 



PROBABLE SCORE 
BULLSEYE OR COMPLETE MISS 
10, 20 OR 30 POINTS 
ANYTHINB 



NAME OF PLAYER H 1 ? STEVE 
NAME OF PLAYER H 2 ? DARTH 

ROUND 1 

STEVE'S THROU? 1 
30-POINT ZONE! 
TOTAL SCORE = 30 

DARTH'S THROU? 2 
UHEU! 10 POINTS. 
TOTAL SCORE » 10 



ROUND 2 

STEVE'S THROU? 3 
MISSED THE TARGET! 
TOTAL SCORE = 30 

DARTH'S THROU? 1 
MISSED THE TARGET! 
TOTAL SCORE = 10 

ROUND 3 



TOO BAD. 



TOO BAD. 



STEVE'S THROU? 1 
20-POINT ZONE 
TOTAL SCORE = 50 

DARTH'S THROU? 1 

MISSED THE TARGET! TOO BAD. 

TOTAL SCORE - 10 

ROUND 4 

STEVE'S THROU? 2 

MISSED THE TARGET! TOO DAD. 

TOTAL SCORE = 50 

DARTH'S THROU? 2 
20-POINT ZONE 
TOTAL SCORE = 30 

ROUND 5 

STEVE'S THROU? 1 
BULLSEYE!! 40 POINTS! 
TOTAL SCORE = 90 



DARTH'S THROU? 1 
MISSED THE TARGET! 
TOTAL SCORE = 30 



HORRISTOUN, NEU JERSEY" 



40 PRINT 
50 PRINT 



TOO DAD. 



5 PRINT TAB(32);"BULLSEYE" 

10 PRINT TAB(15)j''CREATIVE COMPUTING 

20 PRINT:PRINT:PRINT 

30 PRINT "IN THIS GAME, UP TO 20 PLAYERS THROU DARTS AT A TARGET" 

UITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS" 

TO GET 200 POINTS.": PRINT 
60 PRINT "THR0U",TAB(20);"DESCRIPTI0N";TAB(45);"PR0BABLE SCORE" 
70 PRINT" 1";TAB(20);"FAST 0VERARH";TAB(45) ;"BULLSEYE OR COMPLETE MISS" 
80 PRINT" 2";TAB(20);"C0NTR0LLED 0VERARM";TAB(45) ;"10, 20 OR 30 POINTS" 
90 PRINT" 3";TAB(20);"UNDERARM";TAB(45);"ANYTHIN0":PRINT 
100 DIM A»(20),S(20),U(10): M=0: R=0: FOR 1=1 TO 20: S<I)=0: NEXT I 
110 INPUT "HOU MANY PLAYERS"JN: PRINT 
120 FOR 1=1 TO N 

130 PRINT "NAME OF PLAYER »";I;:INPUT A*U) 
140 NEXT I 

150 R=R*1: PRINT: PRINT "R0UND";R 
HO FOR 1 = 1 TO N 

170 PRINT: PRINT A»(I)"'S THROU";: INPUT T 
180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3!": GOTO 170 
1?0 ON T 60TO 200, 210, 200 
200 P1=.45: P2=.55: P3=.5: P4=.5: GOTO 230 
210 Pl=.?9: P2=.77: P3=.43: P4=.01: 0OT0 230 
220 P1*.95: P2=.75: P3=.45: P4=.05 
230 U=RND(1) 

240 IF U>=P! THEN PRINT "BULLSEYE!! 40 POINTS! ":B=40: GOTO 290 
250 IF U>=P2 THEN PRINT "30-POINT Z0NE!":B=30: GOTO 270 
260 IF U>=P3 THEN PRINT "20-POINT ZONE":B=20: GOTO 270 
270 IF U>=P4 THEN PRINT "UHEU! 10 POINTS. ":B=10: GOTO 290 
280 PRINT "MISSED THE TARGET! TOO BAD.": B=0 
290 S(I> = S(IHB: PRINT "TOTAL SCORE =";S(I): NEXT I 
300 FOR 1 = 1 TO N 

310 IF S(I)>=200 THEN H=M+I: U(M)=I 
320 NEXT I 
330 IF M=0 THEN 150 

340 PRINT: PRINT "UE HAVE A UINNER!!": PRINT 

350 FOR 1=1 TO M: PRINT A*(U(I));" SCORED" ;S(U(I )) ;"P0INFS.": NEXT I 
360 PRINT: PRINT "THANKS FOR THE OAHE.": END 
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Bunny 



BUNNY 
CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY 



UN 
DUN 

BUNNYB 
BUNNYBUN 
UNNYBUNNY 
NNYBUNNYBU 
NYBUNNYBUNN 
YBUNNYBUNNY 
BUNNYBUNNYB 
UNNYBUNNYBU 
NNYBUNNYBUN 
NYBUNNYBUNNY 
YBUNNYBUNNYB 
BUNNYBUNNYBU 
UNNYBUNNYBUN 



BUNNYB 
NYBUNNYBUN 
UNNYBUNNYBUN 
NNYBUNNYBUNNYB 
UNNYBUNNYBUNNYB 
YBUNNYBUNNYBUNNY 
NNYBUNNYBUNNYBUNN 
UNNYBUNNYBUNNYBUN 
BUNNYBUNNYBUNNYB 
YBUNNYBUNNYBUNNY 
NYBUNNYBUNNYBUNN 
NNYBUNNYBUNNYBU 
UNNYBUNNYBUNNYB 
BUNNYBUNNYBUNN 



NNYBUNNYBUN YBUNNYBUNNYBU 
NYBUNNYBUNNYBUNNYBUNNY 
YBUNNYBUNNYBUNNYBUNN 
BUNNYBUNNYBUNNYBU 
NNYBUNNYBUNNY . 
NYBUNNYBUN 
YBUNNYBU 
UNNYBUNNYBUNN 
NYBUNNYBUNNYBUNNYB 
UNNYBUNNYBUNNYBUNNYBU 
BUNNYBUNNYBUNNYBUNNYBUN 
NYBUNNYBUNNYBUNNYBUNNYBUNN 
NNYBUNNYBUNNYBUNNYBUNNYBUNNY 
UNNYBUNN UNNYBUNNYBUNNYBUNNY 
BUNNYBUN UNNYBUNNYBUNNYBUNNYB 
YBUNNYBUN UNNYBUNNYBUNNYBUNNYB 
NYBUNNYBUN BUNNYBUNNYBUNNYBUNNYB 
NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB 
UNNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB 
NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY 
NYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY 
YBUNNYBUNNYBUNNYBUNNYBUNNYBUNN 
UNNYBUNNYBUNNYBUNNYBUNNYBUNN 
BUNNYBUNNYBUNNYBUNNYBUN Y 
YBUN YBUNNYB NYBU B 

BUNNY NYBUNNYB U 
YBUNN U YBUNNYB N 
NYBUNN NYBUNNY NYBUNN 
NNYBUNNYBUNNYBUNNY UNN 
UNN N Y N YBUNNYBU 



BU 



NN 



NY Y 

NN UNNY 

NNY 

NY 



10 PRINT TAB(33);"BUNNY" 

20 PRINT TAB(15);"CREATIUE COHPUTING HORRISTOUN, NEU JERSEY" 

30 PRINT: PRINT: PR-INT 

100 REN "BUNNY" FROH AHL'S 'BASIC COMPUTER OAHES' 

110 REN 

120 FOR 1=0 TO 4: REAB BU): NEXT I 

130 BOSUB 240 

140 L=64: REH ASCII LETTER COBE... 

150 REN 

UO PRINT 

170 READ X: IF X<0 THEN 160 

175 IF X>128 THEN 240 

180 PRINT TAB(X);: READ Y 

190 FOR I=X TO Y: J=I-5*INT(I/5> 

200 PRINT CHR»(L+B(JJ); 

210 NEXT I 

220 GOTO 170 

230 REH 

240 60SUB 240: GOTO 450 

250 REH 

260 FOR 1=1 TO 6: PRINT CHR»(10);: NEXT I 

270 RETURN 

280 REH 

290 DATA 2,21,14,14,25 

300 DATA 1,2,-1,0,2,45,50,-1,0,5,43,52,-1,0,7,41,52,-1 

310 DATA 1,9,37,50,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-1 

320 DATA 5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1 

330 DATA 9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,34,-1 

340 DATA 13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1 

350 DATA 19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1 

360 DATA 8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1 

370 DATA 4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1 

380 DATA 2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,34,-1 

390 DATA 14,17,19,25,28,31,35,35,-1,15,19,23,30,34,36,-1 

400 DATA 14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1 

410 DATA 12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1 

420 DATA 10,11,17,18,22,22,24,24,29,29,-1 

430 DATA 22,23,26,29,-1,27,29,-1,28,29,-1,4094 

440 REH 

450 END 
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Buzzword 



This program is an invaluable aid for 
preparing speeches and briefings 
about educational technology. This 
buzzword generator provides sets of 
three highly-acceptable words to work 
into your material. Your audience will 
never know that the phrases don't 
really mean much of anything because 
they sound so great! Full instructions 
for running are given in the program. 

This version of Buzzword was written 
by David Ahl. 



BUZZUORD GENERATOR 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



THIS PR06RAH PRINTS HIGHLY ACCEPTABLE PHRASES IN 
'EDUCATOR-SPEAK'THAT YOU CAN UORK INTO REPORTS 
AND SPEECHES. UHENEVER A QUESTION HARK IS PRINTED, 
TYPE A 'V FOR ANOTHER PHRASE OR 'N' TO QUIT. 



HERE'S THE FIRST PHRASE: 
ABILITY VERTICAL AGE PERFORMANCE 



■>. Y 

DIFFERENTIATED CREATIVE FACILITY 



? Y 

MANIPULATIVE LEARNING ENVIRONMENT 



? Y 



ABILITY CREATIVE GROUPING 



? Y 

TAVISTOCK NON-GRADED REINFORCEMENT 



? Y 

MODULAR MOTIVATIONAL FACILITY 



? Y 

TAVISTOCK HUHANISTIC REINFORCEMENT 



T Y 

DISCOVERY MOTIVATIONAL GROUPING 



? Y 

HETEROGENEOUS VERTICAL AGE PROCESS 



? Y 

ABILITY LEARNING PROCESS 



FLEXIBLE TRAINING CORE CURRICULUM 

■>. N 

COME BACK UHEN YOU NEED HELP UITH ANOTHER REPORT! 



10 PRINT TAB(26);"BUZZU0RD GENERATOR" 

20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

40 PRINT "THIS PROGRAH PRINTS HIGHLY ACCEPTABLE PHRASES IN" 

50 PRINT "'EBUCATOR-SPEAK'THAT YOU CAN UORK INTO REPORTS" 

60 PRINT "AND SPEECHES. UHENEVER A QUESTION MARK IS PRINTED," 

70 PRINT "TYPE A "I' FOR ANOTHER PHRASE OR 'N' TO QUIT." 

80 PRINT:PRINT:PRINT "HERE'S THE FIRST PHRASE:" 

90 DIM A»<40> 

100 FOR 1=1 TO 3? : READ A*(I) 

110 PRINT A1(INT(13*RND(1)+1));" 

120 PRINT A$(INT(13*RND(1)+14)>;" 

130 PRINT A»<INTU3»RND(1) + 27>> : 

150 INPUT Y» : IF Y»="Y" THEN 110 ELSE GOTO 99? 

200 DATA "ABILITY", "BASAL", "BEHAVIORAL", "CHILD-CENTERED" 

210 DATA "DIFFERENTIATED", "DISCOVERY", "FLEXIBLE", "HETEROGENEOUS" 

220 DATA "HOMOGENEOUS", "MANIPULATIVE", "MODULAR", "TAVISTOCK" 

230 DATA "INDIVIDUALIZED", "LEARNING", "EVALUATIVE", "OBJECTIVE" 

240 DATA "COGNITIVE", "ENRICHMENT", "SCHEDULING", "HUMANISTIC" 

250 DATA "INTEGRATED", "NON-GRADED", "TRAINING", "VERTICAL AGE" 

260 DATA "MOTIVATIONAL", "CREATIVE", "GROUPING", "MODIFICATION" 

270 DATA "ACCOUNTABILITY", "PROCESS", "CORE CURRICULUM", "ALGORITHM" 

280 DATA "PERFORMANCE", "REINFORCEHENT", "OPEN CLASSROOM", "RESOURCE" 

2V0 DATA "STRUCTURE", "FACILITY", "ENVIRONMENT" 

9?? PRINT "COME BACK UHEN YOU NEED HELP UITH ANOTHER REPORT! ":END 



NEXT I 



PRINT 
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Calendar 



This program prints out a calendar 
for any year. You must specify the 
starting day of the week of the year in 
Statement 130. (Sunday (0), Monday 
(-1 ) , Tuesday (-2) , etc.) . You can deter- 
mine this by using the program WEEK- 
DAY. You must also make two changes 
for leap years in Statements 360 and 
620. The program listing describes the 
necessary changes. Running the 
program produces a nice 12-month 
calendar. 

The program was written by Geof- 
frey Chase of the Abbey, Portsmouth, 
Rhode Island. 



*» 59 »*♦♦»»*»«««»»*»»♦* MARCH *****♦*»»*♦♦*****♦ 306 ** 
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CALENDAR 
CREATIVE COMPUTING H0RRIST0UN, NEU JERSEY 



»t o ***«»»*«»*»«•»»*♦• JANUARY *»*****»*******»*» 345 ** 
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S M T U T F S 

*********************************************************** 

1 



2 


3 


4 


5 


6 


7 


a 


9 


to 


11 


12 


13 


14 


15 


U 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


• 2? 


30 















*« 120 «*♦»*«»**»»«*♦*♦«» HAY ****************** 245 »* 

S H T U T F S 

******************************** *************************** 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 
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*********************************************************** 
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** 151 ****************** JUNE ****************** 214 ** 
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** 181 ****************** JULY ****************** 184 ** 
S H T U T F S 

♦ MM****************************************************** 

1 

2 3 4 5 6 7 8 

9 10 11 12 13 14 13 
U 17 IB 1? 20 21 22 

23 24 23 26 27 28 29 
30 31 

** 212 «****»»***♦♦*»**** AUGUST ****************** 153 ** 

5 H T U T F S 
*********************************************************** 

12 3 4 5 

6 7 8 9 10 11 12 
13 14 15 16 17 18 1? 
20 21 22 23 24 25 26 
27 28 2? 30 31 

»» 243 *»****************SEPTENBER****************** 122 ** 

S H r U I F 3 
******** ********t**********************t******************* 

1 2 

3 4 5 6 7 8V 

10 11 12 13 14 13 16 
17 18 1? 20 21 22 23 

24 25 26 27 28 2? 30 

*• 273 ****************** OCTOBER ****************** 92 ** 
S H T U T r s 

♦MM****************************************************** 
12 3 4 5 6 7 
8 9 10 11 12 13 14 
15 16 17 18 19 20 21 
22 23 24 25 26 27 28 
29 30 31 

** 304 ***•♦**«*♦♦***♦*** NOVEMBER****************** 61 *» 
S H T U T F S 

12 3 4 

5 6 7 8 9 10 11 

12 13 14 15 16 17 18 

19 20 21 22 23 24 25 
26 27 28 29 30 



** 334 *****»***♦*♦***•*« DECEMBER****************** 31 ** 
S H T U T F S 

ft********************************************************* 

I 2 
3 4 5 6 7 8 9 
10 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 30 
31 



10 PRINT TAB<32) ["CALENDAR" 

20 PRINT TAB(I5);"CREATIVE COMPUTING HORRISTOUH, HEU JERSEY" 

30 PRINT:PRINT:PRINT 

100 REM VALUES FOR 1978 - SEE NOTES 

110 BIN M(12) 

120 FOR 1 = 1 TO 6: PRINT CHRM10);: NEXT I 

130 0=0: REN 1978 STARTS ON SUNDAY (0=SUN, -1=M0N, -2=TUES...) 

140 S=0 

150 REM READ DAYS OF EACH MONTH 

160 FOR N=0 TO 12: READ H(N): NEXT N 

170 REM 

180 FOR N"l TO 12 

190 PRINT: PRINT: S=S*H<N-1> 

200 PRINT "**";S;TAB(7); 

210 FOR 1=1 TO 18: PRINT "*";: NEXT I 

220 ON N GOTO 230,240,250,260,270,280,290,300,310,320,330,340 

230 PRINT " JANUARY "J: GOTO 350 

240 PRINT " FEBRUARY";: GOTO 350 

250 PRINT " MARCH ";: DOTO 350 

260 PRINT " APRIL ";: GOTO 350 

270 PRINT " MAY ";: GOTO 350 

280 PRINT " JUNE "J: GOTO 350 

290 PRINT " JULY "J: GOTO 350 

300 PRINT " AUGUST ";: GOTO 350 

310 PRINT "SEPTEMBER";: GOTO 350 

320 PRINT " OCTOBER ";: GOTO 350 

330 PRINT " NOVEMBER";: GOTO 350 

340 PRINT " DECEMBER"; 

350 FOR 1=1 TO IB: PRINT "*";: NEXT I 

360 PRINT 365-S;"**"; 

370 REM 366-S; ON LEAP YEARS 

380 PRINT CHR»(10): PRINT S N T U"; 

390 PRINT T F S" 

400 PRINT 

410 FOR 1 = 1 TO 59: PRINT "»";: NEXT I 

420 REN 

430 FOR U=1 TO 6 

440 PRINT CHRX10) 

450 PRINT TAB(4) 

460 REM 

470 FOR 0=1 TO 7 

480 D=D+1 

490 D2=D-S 

500 IF D2>M(N) THEN 580 

510 IF D2>0 THEN PRINT D2; 

520 PRINT TAB(4t8*0); 

530 NEXT G 

540 REM 

550 IF D2=M(N) THEN 590 

560 NEXT U 

370 REM 

580 D=D-B 

590 NEXT N 

600 REM 

610 FOR 1-1 TO 6: PRINT CHRK10);: NEXT I 

620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31 

630 REM 0,31,29 ON LEAP YEARS 

640 END 
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Change 




In this program, the computer 
pretends it is the cashier at your 
friendly neighborhood candy store. 
You tell it the cost of the item(s) you are 
buying, the amount of your payment, 
and it will automatically (!) determine 
your correct change. Aren't machines 
wonderful? Dennis Lunder of People's 
Computer Company wrote this 
program. 

CHANGE 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 



I, YOUR FRIENDLY MICROCOMPUTER, UIll DETERMINE 
THE CORRECT CHANGE FOR ITEMS COSTING UP TO ItOO. 



COST OF ITEM? 80.00 
AMOUNT OF PAYMENT? tOO 
YOUR CHAHGE, t 19.20 
I TEN DOLLAR BILL(S) 
I FIVE DOLLARS BILKS) 

4 ONE DOLLAR BILKS) 
I DIHE(S) 

1 NICKEKS) 

5 PENNY(S) 

THANK YOU, COME AGAIN. 



COST OF ITEM? .19 
AMOUNT OF PAYMENT? 1.00 
YOUR CHAN6E, > .81 

1 ONE HALF DOLLAR(S) 

1 OUARTER(S) 

1 NICKEL(S) 

1 PENNY(S) 
THANK YOU, COME AGAIN. 



COST OF ITEM? 1.01 
AMOUNT OF PAYMENT? 5 
YOUR CHANGE, * 3.99 

3 ONE DOLLAR BILL(S) 
1 ONE HALF DOLLAR(S) 

1 OUARTER(S) 

2 DIHE(S) 

4 PENNYtS) 



2 PRINT TAB<33);"CHANGE" 

4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

5 PRINT:PRINT:PRINT 

6 PRINT "I, YOUR FRIENDLY MICROCOMPUTER, UILL DETERMINE" 

8 PRINT "THE CORRECT CHANGE FOR ITEHS COSTING UP TO »100." 

9 PRINT:PRINT 

10 PRINT "COST OF ITEM";:INPUT A:PRINT "AMOUNT OF PAYMENT" j: INPUT P 
20 C=P-A:M=C:IF COO THEN 90 

25 PRINT "CORRECT AMOUNT, THANK YOU." 

30 GOTO 10 

90 IF DO THEN 120 

95 PRINT "SORRY, YOU HAVE SHORT-CHANGED ME »"JA-P 

100 GOTO 10 

120 PRINT "YOUR CHAN6E, «";C 

130 D*INT(C/10) 

140 IF D«0 THEN 155 

150 PRINT D;"TEN DOLLAR BILL(S)" 

155 C=M-(D»10) 

160 E=INT(C/5) 

170 IF E=0 THEN 185 

180 PRINT E;"FIVE DOLLARS BILKS)" 

185 C=M-(D»10*E»5) 

190 F=INT(C) 

200 IF F=0 THEN 215 

210 PRINT F;"0NE DOLLAR BILKS)" 

215 C=H-(D«10»E»5+F) 

220 C-O100 

225 N=C 

230 6=INT(C/50) 

240 IF 6=0 THEN 255 

250 PRINT G;"0NE HALF DOLLAR(S)" 

255 C»N-(6»50) 

260 H=INT(C/25> 

270 IF H=0 THEN 285 

280 PRINT H;"OUARTER(S)" 

285 C»N-<8»50*H*25) 

290 I=INT(C/10) 

300 IF 1=0 THEN 315 

310 PRINT I;"DIHE(S)" 

315 C=H- ( G*S0+H*2S+ 1*1 > 

320 J=INT(C/S) 

330 IF J=0 THEN 345 

340 PRINT J;»NICKEKS>" 

345 C=N-(6*50+H»25*I*IO+J*5) 

350 K=INT(Ct.5) 

360 IF K=0 THEN 380 

370 PRINT K;"PENNY<S>" 

380 PRINT "THANK YOU, COME AGAIN." 

390 PRINT:PRINT 

400 GOTO 10 

410 END 
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Checkers 




This program plays checkers. The 
pieces played by the computer are marked 
with an "X", yours are marked "O". A 
move is made by specifying the coordi- 
nates of the piece to be moved (X, Y). 
Home (O.O) is in the bottom left and X 
specifies distance to the right of home (i.e., 
column) and Y specifies distance above 
home (i.e., row). You then specify where 
you wish to move to. 

The original version of the program by 
Alan Segal was not able to recognize (or 
permit) a double or triple jump. If you tried 
one, it was likely that your piece would dis- 
appear altogether! 

Steve North of Creative Computing 
rectified this problem and Lawrence 
Neal contributed modifications to 
allow the program to tell which player 
has won the game. The computer does 
not play a particularly good game but 
we leave it to you to improve that. 

CHECKERS 
CREATIVE C0MPUTIN6 HQRRISTOUN, NEU JERSEY 

THIS IS THE BAHE OF CHECKERS. THE COHPUTER IS X, 

AND YOU ARE 0. THE COHPUTER WILL HOVE FIRST. 

SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM. 

<0>,O> IS THE LOUER LEFT CORNER 

(0,7) IS THE UPPER LEFT CORNER 

(7,0) IS THE LOUER RIGHT CORNER 

(7,7) IS THE UPPER RI6HT CORNER 

THE COHPUTER UILL TYPE '*T0' UHEN YOU HAVE ANOTHER 

JUHP. TYPE TUO HEOATIVE NUMBERS IF YOU CANNOT JUMP. 

FROH 1 5 TO 4 
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X . X . X 
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FROM? 0,0 

TO? 1,1 

FROH 1 5 TO 4 
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5 PRINT TAB(32);"CHECKERS" 

10 PRINT TA8(15);"CREAriVE COMPUTING MORRISTQUN, NEU JERSEY" 

15 PRINT:PRINT:PRINT 

20 PRINT "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS X," 

25 PRINT "AND YOU ARE 0. THE COMPUTER WILL MOVE FIRST." 

30 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM." 

35 PRINT "(0,0) IS THE LOUER LEFT CORNER" 

40 PRINT "(0,7! IS THE UPPER LEFT CORNER" 

45 PRINT "(7,0) IS THE LOUER RIGHT CORNER" 

50 PRINT "(7,7) IS THE UPPER RIGHT CORNER" 

55 PRINT "THE COHPUTER WILL TYPE +T0" UHEN YOU HAVE ANOTHER" 

60 PRINT "JUMP. TYPE TOO NEGATIVE NUMBERS IF YOU CANNOT JUMP." 

65 PRINT:PRINT:PRINT 

80 DIM R(4),S(7,7):G=-1:R(0)=-9? 

90 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 

120 F0RX=0T07:F0RY=0T07:READJ:IFJ=15THEN18O 

160 S(X,Y)=J:G0T0200 

180 RESTORE:READS(X,Y) 

200 NEXTY.X 

230 FORX=OT07:FORY=OT07:IFS(X,Y)>-1THEN350 

310 IFS(X,Y)=-1THENF0RA=-1T01STEP2:B=G:G0SUB650:NEXTA 

330 IFS(X,Y)=-2TH£NF0RA=-1T01STEP2:F0RB=-1TQ1STEP2:GOSUB65O:NEXTB,A 

350 NEXTY,X:B0T01140 

650 U=X+A:V=Y+B:IFU<O0RU>70RV<00RV>7THEN8?O 

740 IFS(U,V)=0THENG0SUB910:G0TO87O 

770 IFS(U,VX0THEN870 

790 U=U+A;V=V+B:IFU<00RV<0ORU>70RV>7THEN870 

850 IFS(U,V)=0THENG0SUB910 

870 RETURN 

910 IFV=0ANDS(X,Y)=-1THENQ=O+2 

920 IFABS(Y-V)=2THEN0=Q+5 

960 IFY=7THENQ=Q-2 

980 IFU=00RU=7 THENQ=Q+1 

1030 F0RC=-1T01STEP2:IFU+C<0ORU+C>7ORV+S<0THEN1O8O 

1035 IFS(U+C,M+GK0THENQ=Q+1:G0T01080 

104O IFU-C<00RU-D70RM-G>7THENIO8O 

1045 IFS(UtC,(/ + G):>0AND(S(U-C,V~G)=00R(U-C=XANDV-G=Y>>THENQ=Q-2 

1080 NEXTC:IFQ>R(0)THENR(0)=Q:R(I)=X:R(2)=Y:R(3)=U:R(4)=V 

1100 Q=0:RETURN 

1140 IF R(0)=-99 THEN 1880 

1230 PRINTCHRJ(30)"FR0H"R(1);R(2)"T0"R(3);R(4);:R(O>=-99 

1240 IFR(4)=0THENS(R(3),R(4))=-2:G0T01420 

1250 S(R(3),R(4!)=S(R(1),R(2)) 

1310 S(R(1),R(2))=0:IFA8S(R(1)-R<3))O2THEN1420 

1330 S((R(1)+R(3!)/2,(R(2)+R(4))/2)=0 

1340 X=R(3):Y=R(4):IFSU,Y)=-1THENB=-2:FORA=-2T025TEP4:GOSUB1370 

1350 IFS(X,Y)=-2THENF0RA=-2TO2STEP4:F0RB=-2TO2STEP4:G0SUB137O:NEXTB 

1360 NEXTA:IFR<OK>-9?THENPRINT"T0"R(3>;R(4);:R(O)=~99:GOTO1240 

1365 G0T01420 

1370 U=X+A:V=Y+B:IFU<00RU>7ORV<0ORV>7THEN14O0 

1380 IFS<U,V)=0ANDS(X+A/2,Y+B/2)>0THENGOSUB91O 

1400 RETURN 

1420 PRINT: PRINT :PRINT:F0RY=7T00STEP- 

1430 IFS(X,Y)=OTHENPRINT"."; 

1470 IFS(X,Y)=1THENPRINT"0"; 

1490 IFS(X,Y)=-1THENPRINT"X"; 

1510 IFS(X,Y)=-2THENPRINT"X*"| 

1530 IFS(X,Y)=2THENPRINT"0*"; 

1550 NEXTX:PRINT PRINT:NEXTY:PRINT 

1552 F0RL=0T07 

1554 FORM=OT07 

1556 IFS(L,M)=10RS(L,M)=2THENZ=1 

1558 IFS(L,M)=-10RS(L,M)=-2THENT=1 

1560 NEXTM 

1562 NEXTL 

1564 IF Z01 THEN 1880 

1566 IF TOI THEN 1885 

1570 T=0: Z=0 

1590 INPUT "FROM";E,H:X=E:Y=H:IFS(X,YK 

1670 INPUT "TO";A,B:X=A:Y=B 

1680 IFS(X,Y)=0ANDABS(A-EX=2ANDABS(A-E)=ABS(B-H!THEN1700 

1690 PRINTCHR*(7)CHR»(11);:G0T01670 

1700 1=46 

1750 S(A,B) = S(E,H):S(E,H)=0:IFABS(E-A)O2THEN1810 

1800 S((E+A)/2,(H+B)/2)=0 

1802 INPUT " + T0" ;A1 ,B1 : IF A1 <0 THEN 1810 

1804 IFS(A1,B1)O00RABS(A1-AK>20RABS(B1-B)O2THEN1802 

1806 E=A:H=B:A=A1:B=B1:I=It15:G0T01750 

1810 IFB=7THENS(A,B)=2 

1830 G0T0230 

1880 PRINT: PRINT "I U1N.": END 

1885 PRINT: PRINT "YOU UIN.": END 



1:F0RX=OT07:I=5*X:PRINTTAB(I>; 



=0THEN 1590 
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Chemist 



The fictitious chemical, kryptocyanic 
acid, can only be diluted by the ratio of 
7 parts water to 3 parts acid. Any other 
ratio causes an unstable compound 
which soon explodes. Given an amount 
of acid, you must determine how much 
water to add for dilution. If you're more 
than 5% off, you lose one of your nine 
lives. The program continues to play 
until you lose all nine lives or until it is 
interrupted. 

It was originally written by Wayne 
Teeter of Ridgecrest, California. 



CHEMIST 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 



THE FICTITIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE 
DILUTED BY THE RATIO OF 7 PARTS UATER TO 3 PARTS ACID. 
IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE 
AND SOON EXPLODES. GIVEN THE AHOUNT OF ACID, YOU MUST 
DECIDE HOU HUCH UATER TO ADD FOR DILUTION. IF YOU MISS 
YOU FACE THE CONSEOUENCES. 

32 LITERS OF KRYPTOCYANIC ACID. HOU MUCH UATER? 77 
GOOD JOB! YOU HAY BREATHE NOU, BUT DON'T INHALE THE FUHESi 

11 LITERS OF KRYPTOCYANIC ACID. HOU MUCH UATER? 27 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASM! 
HOUEVER, YOU MAY TRY AGAIN UITH ANOTHER LIFE. 

26 LITERS OF KRYPTOCYANIC ACID. HOU MUCH UATER* 28 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF OUIVERING PROTOPLASM! 

HOUEVER, YOU HAY TRY AGAIN UITH ANOTHER LIFE. 

47 LITERS OF KRYPTOCYANIC ACID. HOU HUCH UATER? 82 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASM! 
HOUEVER, YOU MAY TRY AGAIN UITH ANOTHER LIFE. 

27 LITERS OF KRYPTOCYANIC ACID. HOU MUCH UATER? 43 

GOOD JOB! YOU MAY BREATHE NOU, BUT DON'T INHALE THE FUMES I 



5 LITERS OF 
SIZZLE! YOU 
OF QUIVERING 
HOUEVER, YOU 

II LITERS OF 
SIZZLE! YOU 
OF QUIVERINB 
HOUEVER, YOU 

48 LITERS OF 

BREAK IN 130 



KRYPTOCYANIC ACID. HOU MUCH UATER? ? 

HAVE JUST BEEN DESALINATED INTO A BLOB 

PROTOPLASM! 

HAY TRY AGAIN UITH ANOTHER LIFE. 

KRYPTOCYANIC ACID. HOU MUCH UATER? 28 
HAVE JUST BEEN BESALINATED INTO A BLOB 
PROTOPLASM! 
HAY TRY AGAIN UITH ANOTHER LIFE. 

KRYPTOCYANIC ACID. HOU MUCH UATER? 



3 PRINT TAB(33);"CHEHtST" 

4 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 
8 PRINT:PRINT:PRINT 

10 PRINT "THE FICTITIOUS CHECHICAL KRYPTOCYANIC ACID CAN ONLY BE" 

20 PRINT "DILUTED BY THE RATIO OF 7 PARTS UATER TO 3 PARTS ACID." 

30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE" 

40 PRINT "AND SOON EXPLODES. OIVEN THE AHOUNT OF ACID, YOU MUST" 

50 PRINT "DECIDE UHO HUCH UATER TO ADD FOR DILUTION. IF YOU HISS" 

40 PRINT "YOU FACE THE CONSEQUENCES." 

100 A=INT(RND(1)«50) 

110 U=7*A/3 

120 PRINT Aj"LITERS OF KRYPTOCYANIC ACID. HOU MUCH UATER"; 

130 INPUT R 

140 D=ABS(U-R> 

150 IF D>U/20 THEN 200 

160 PRINT "GOOD JOB! YOU MAY BREATHE NOU, BUT DON'T INHALE THE FUMES!" 

170 PRINT 

180 GOTO 100 

200 PRINT "SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB" 

210 PRINT "OF OUIVERING PROTOPLASM!" 

220 T=T*1 

230 IF T»? THEN 240 

240 PRINT "HOUEVER, YOU MAY TRY AGAIN UITH ANOTHER LIFE." 

250 GOTO 100 

260 PRINT "YOUR 1 LIVES ARE USEB, BUT YOU UILL BE LONG REHEMBERED FOR" 

270 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY." 

280 END 
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Chief 



In the words of the program author, 
John Graham, "CHIEF is designed to 
give people (mostly kids) practice in 
the four operations (addition, mul- 
tiplication, subtraction, and division). 

It does this while giving people some 
fun. And then, if the people are wrong, 
it shows them how they should have 
done it. 

CHIEF was written by John Graham 
of Upper Brookville, New York. 



CHIEF 

CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD. 
ARE yOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR? YES 

TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND 
MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1. 

UHAT DO YOU HAVE? 12 
I BET YOUR NUMBER UAS 22 HAS I RIGHT? NO 
UHAT UAS YOUR ORIGINAL NUMBER? 32 
SO YOU THINK YOU'RE SO SMART, EH? 
NOU UATCH. 

32 PLUS 3 EQUALS 35 . THIS DIVIDED BY 5 EQUALS 7 ; 
THIS TIMES 8 EQUALS 56 . IF UE DIVIDE BY 5 AND ADD 5, 
UE OET 16.2 , UHICH, MINUS 1 EQUALS 15.2 . 
NOU DO YOU BELIEVE ME? NO 
YOU HAVE MADE ME MADH! 
THERE MUST BE A GREAT LIGHTNING BOLT! 



X X 
X X 
X X 
X X 
X X 
X X 
X X 
X X 
X X 
X XXX 
X X 
XXX X 
X X 
X X 
X X 
X X 
X X 
X X 
X X 
X X 
XX 



HH H«IHtt«ltltt«IHtti«tt»««tK«IH«tflll«t«a 

I HOPE YOU BELIEVE ME NOU, FOR YOUR SAKE!! 



C" UAS I RIGHT"; 



2 PRINT TAB(30) "CHIEF" 

4 PRINT TABU 5) "CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

6 PRINT:PRINT:PRINT 

10 PRINT " I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD." 

20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR"; 

30 INPUT At 

40 IF A»= "YES" THEN 60 

50 PRINT "SHUTUP PALE FACE UITH UISE TONGUE." 

60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND" 

70 PRINT "MULTIPLY BY B. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1. 

80 PRINT " UHAT DO YOU HAVE"; 

90 INPUT B 

100 LET C = <B+1-5>»5/8*5-3 

110 PRINT "I BET YOUR NUMBER UAS 

120 INPUT D$ 

130 IF D*="YES" THEN 510 

140 PRINT "UHAT UAS YOUR ORIGINAL NUMBER"; 

150 INPUT K 

155 LET F=K+3 

160 LET G=F/5 

170 LET H=G»B 

180 LET I=H/5+5 

190 LET J=I-1 

200 PRINT "SO YOU THINK YOU'RE SO SMART, EH?" 

210 PRINT "NOU UATCH." 

230 PRINT K"PLUS 3 EQUALS"F". THIS DIVIDED BY 5 EQUALS"G";" 

240 PRINT "THIS TIMES 8 EQUALS"H". IF UE DIVIDE BY 5 AND ADD 5," 

250 PRINT "UE GET"I", UHICH, MINUS 1 EQUALS"J"." 

260 PRINT "NOU DO YOU DELIEVE ME"; 

270 INPUT Z$ 

290 IF Z» ="YES" THEN 510 

295 PRINT "YOU HAVE HADE ME MAD!!!" 

300 PRINT "THERE HUST BE A GREAT LIGHTNING BOLT!" 

310 PRINT:PRINT 

330 FOR X=30 TO 22 STEP -1 

340 PRINT TAB1X) "X X" 

350 NEXT X 

360 PRINT TAB(21) "X XXX" 

370 PRINT TAB(20) "X X" 

380 PRINT TAB(19) "XXX X" 

390 FOR Y=20 TO 13 STEP -1 

400 PRINT TAB(Y) "X X" 

410 NEXT Y 

420 PRINT TAB(12) "XX" 

430 PRINT TAB111) "X" 

440 PRINT TABdO) "*" 

450 PRINT:PRINT"««««B8HNH««#H«H*lt(lt«H«8ft«»«":PRINT 

470 PRINT "I HOPE YOU BELIEVE ME NOU, FOR YOUR SAKE!!" 

480 GOTO 520 

510 PRINT "BYE!!!!!" 

520 END 
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Chomp 



This program is an adaptation of a 
mathematical game originally describ- 
ed by Martin Gardner in the January 
1973 issue of Scientific American. Up 
to a 9x9 grid is set up by you with the 
upper left square a poison square. This 
grid is the cookie. Players alternately 
chomp away at the cookie from the 
lower right. To take a chomp, input a 
row and column number of one of the 
squares remaining on the cookie. All of 
the squares below and to the right of 
that square, including that square, 
disappear. 

Any number of people can play — the 
computer is only the moderator; it is 
not a player. Two-person strategies are 
interesting to work out but strategies 
when three or more people are playing 
are a real challenge. 

The computer version of the game 
was written by Peter Sessions of 
People's Computer Company. 

CHOMP 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



PLAYER 1 

COORDINATES OF CHOMP (ROU, COLUMN)? 5,4 



2 3 4 5 6 7 8 9 

****** 
****** 
****** 
****** 
• * * * 



PLAYER 2 

COORDINATES OF CHOHP (ROU.COLUHNt? 3,2 



3 4 5 4 7 

***** 
***** 



e 9 



PLAYER 1 

COORDINATES OF CHOMP (ROU.COLUHN)? 4,4 

NO FAIR. YOU'RE TRYING TO CHOHP ON EMPTY SPACE! 

PLAYER I 

COORDINATES OF CHOHP (ROU.COLUHN)? 2,2 



THIS IS THE GAME OF CHOHP (SCIENTIFIC AMERICAN, 

UANT THE RULES (1=YES, 0=N0!>? 1 

CHOHP IS FOR 1 OR HORE PLAYERS (HUHANS ONLY). 

HERE'S HOU A BOARD LOOKS (THIS ONE IS 5 BY 7): 



12 3 4 5 4 7 8? 

P ***** * 
******* 
******* 
******* 
******* 



JAN 1973) 



THE BOARD IS A BIO COOKIE - R ROUS HIGH AND C COLUHNS 

UIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT 

CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE UHO 

CHOHPS THE POISON SQUARE LOSES. TO TAKE A CHOHP, TYPE THE 

ROU AND COLUHN OF ONE OF THE SQUARES ON THE COOKIE. 

ALL OF THE SQUARES BEIOU AND TO THE RIGHT OF THAT SQUARE 

(INCLUDING THAT SQUARE, TOO) DISAPPEAR — CHOHP I ! 

NO FAIR CH0HPIN6 SQUARES THAT HAVE ALREADY BEEN CHOHPED, 

OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE. 



HERE UE 


GO... 


HOU 


MANY 


PLAYERS? 2 


HOU 


HANY 


ROUS? 8 


HOU 


HANY 
1 


COLUMNS? 7 

2 3 4 5 4 7 8 9 


1 


P 


****** 


2 


* 


• ••*•* 


3 


* 


• •**** 


4 


• 


****** 


5 


* 


****** 


4 


* 


****** 


7 


* 


****** 



2 3 4 5 4789 

****** 



PLAYER 2 

COORDINATES OF CHOHP (ROU.COLUHN)? 1,2 



123454789 
P 



PLAYER 1 

COORDINATES OF CHOMP (ROU.COLUHN)? 2,1 



123454789 
P 



******* 



PLAYER 2 

COORDINATES OF CHOMP (ROU, COLUMN)? 1,1 

YOU LOSE, PLAYER 2 

AGAIN ( 1 =YES; 0=N0!)? 
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<s eww. 



CHOHP IS FOR 1 OR hORE PLAYERS (HUHANS ONLY)." 



HERE'S HOU A BOARD LOOKS (THIS ONE IS 5 BY 7): 



10 PRINT TAB(33>;"CH0MP" 

20 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

40 DIH A(10, 10) 

100 REH *«* THE GAHE OF CHOHP *** COPYRIOHT PCC 1973 *** 

110 PRINT 

120 PRINT "THIS IS THE GAHE OF CHOHP (SCIENTIFIC AHERICAN, JAN 1973)" 

130 PRINT "UANT THE RULES (1=YES, 0=NQ!)"; 

140 INPUT R 

150 IF R=0 THEN 340 

HO F«1 

170 R=5 

180 C=7 

1?0 PRINT 

200 PRINT 

210 PRINT 

220 GOSUB S40 

230 PRINT 

240 PRINT "THE BOARD IS A BIG COOKIE - R ROUS HIGH AND C COLUHNS" 

250 PRINT "UIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT" 

240 PRINT "CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO" 

270 PRINT "CHOHPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE" 

280 PRINT "ROU AND COLUHN OF ONE OF THE SQUARES ON THE COOKIE." 

290 PRINT "ALL OF THE SQUARES BELOU AND TO THE RIGHT OF THAT SQUARE" 

300 PRINT "(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOHPH" 

310 PRINT "NO FAIR CHOHPING SQUARES THAT HAVE ALREADY BEEN CHOHPED," 

320 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIHENSIONS OF THE COOKIE." 

330 PRINT 

340 PRINT "HERE WE GO..." 

350 REH 

340 F=0 

370 FOR 1=1 TO 10 

372 FOR J=1 TO 10 

375 A(I,J)=0 

377 NEXT J 

37? NEXT I 

380 PRINT 

390 PRINT "HOU HANY PLAYERS"; 

400 INPUT P 

410 11=0 

420 PRINT "HOU HANY ROUS"; 

430 INPUT R 

440 IF R <= 9 THEN 470 

450 PRINT "TOO HANY ROUS (9 IS HAXIHUH). NOU, "; 

440 GOTO 420 

470 PRINT "HOU HANY COLUHNS"; 

480 INPUT C 

490 IF C <= 9 THEN 530 

500 PRINT "TOO MANY COLUHNS (9 IS HAXIHUM). NOU, "; 

510 GOTO 470 

530 PRINT 

540 FOR 1=1 TO R 



550 FOR J=1 TO C 

540 A(I,J)'1 

570 NEXT J 

560 NEXT I 

590 A(1,1>=-1 

400 REN PRINT THE BOARD 

410 PRINT 

520 PRINT TAB(7);"1 2 3 4 5 4 7 8V" 

430 FOR 1=1 TO R 

440 PRINT I;TAB<7>; 

450 FOR J=1 TO C 

440 IF A(I,J)=-1 THEN 700 

470 IF A(I,J)=0 THEN 720 

480 PRINT "♦ "; 

490 GOTO 710 

700 PRINT "P "( 

710 NEXT J 

720 PRINT 

730 NEXT I 

740 PRINT 

750 IF F=0 THEN 770 

740 RETURN 

770 REH GET CHOHPS FOR EACH PLAYER IN TURN 

780 LET 11=11*1 

790 LET P1=I1-INT(I1/P)*P 

800 IF PI <> THEN 820 

810 P1=P 

820 PRINT "PLAYER ";P1 

830 PRINT "COORDINATES OF CHOHP (ROU.COLUHN)"; 

840 INPUT R1,C1 

850 IF RK1 THEN 920 

840 IF R1>R THEN 920 

870 IF CK1 THEN 920 

880 IF C1>C THEN 920 

890 IF A(R1,C1)=0 THEN 920 

900 IF A(R1,C1)=-1 THEN 1010 

910 GOTO 940 

920 PRINT "NO FAIR. YOU'RE TRYING TO CHOHP ON EMPTY SPACE!" 

930 GOTO 820 

940 FOR I=R1 TO R 

950 FOR J=C1 TO C 

940 A(I,J)=0 

970 NEXT J 

980 NEXT I 

990 GOTO 410 

1000 REM END OF GAME DETECTED IN LINE 900 

1010 PRINT "YOU LOSE, PLAYER ";P1 

1020 PRINT 

1030 PRINT "AGAIN (1=YES; 0=N0!)"; 

1040 INPUT ft 

1050 IF R=1 THEN 340 

1040 END 
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Civil War 



This simulation is based on 14 battles 
in the Civil War. Facts and figures used 
are based on the actual occurrence. If 
you follow the same strategy used in 
the actual battle, the results will be the 
same. Generally, this is a good strategy 
since the generals in the Civil War 
were fairly good military strategists. 
However, you can frequently outper- 
form the Civil War generals, particular- 
ly in cases where they did not have 
good enemy intelligence and conse- 
quently followed a poor course of 
action. Naturally, it helps to know your 
Civil War history, although the com- 
puter gives you the rudiments. 

After each of the 14 battles, your 
casualties are compared to the actual 
casualties of the battle, and you are 
told whether you win or lose the battle. 

You may play Civil War alone in 
which case the program simulates the 
Union general. Or two players may play 
in which case the computer becomes 
the moderator. 

Civil War was written in 1968 by three 
Students at Lexington High School, 
Massachusetts: L. Cram, L. Goodie, 
and D. Hibbard. It was modified into a 
2~player game by G. Paul and R. Hess 
of TIES, St. Paul, Minnesota. 



ARE THERE TUO GENERALS PRESENT (ANSUER YES OR NO)? YES 
SELECT A BATTLE BY TYPING A NUNBER FROM 1 TO 14 ON 
REOUEST. TYPE ANY OTHER NUHBER TO END THE SIHULATION. 
BUT '0' BRINGS BACK EXACT PREVIOUS BATTLE SITUATION 
ALLOWING YOU TO REPLAY IT 

NOTEl A NE6ATIVE F00D» ENTRY CAUSES THE PROGRAH TO 
USE TNE ENTRIES FROH THE PREVIOUS BATTLE 

AFTER REQUESTING A BATTLE, DO YOU UISH BATTLE DESCRIPTIONS 
(ANSUER YES OR NO)? YES 



UHICH BATTLE DO YOU UISH TO SIMULATE? 3 



THIS IS THE BATTLE OF SEVEN BAYS 

JUNE 25- JULY t, 1062. GENERAL LEE (CSA) UPHELD THE 
OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. HCCLELLAN 
AND THE UNION FORCES AUAY FROH RICHMOND. 



CIVIL UAR 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 





CONFEDERACY 


UNION 


HEN 


V5000 


115000 


MONEY 


♦ 427500 


♦ 517500 


INFLATION 


25 Z 


10 Z 



DO YOU UANT INSTRUCTIONS? YES 



THIS IS A CIVIL UAR SIHULATION. 
TO PLAY, TYPE A RESPONSE UHEN THE C0HPUTER ASKS. 
REHEHBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR 
RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE 
BASED ON THE ACTUAL OCCURRENCE. N0ST BATTLES TEND TO RESULT 
AS THEY DID IN THE CIVIL UAR, BUT IT ALL DEPENDS ON YOU!! 

THE OBJECT OF THE GAME IS TO UIN AS HANY BATTLES AS POSSIBLE. 

YOUR CHOICES FOR DEFENSIVE STRATEGY ARE: 

(1) ARTILLERY ATTACK 

(2) FORTIFICATION AGAINST FRONTAL ATTACK 

(3) FORTIFICATION AGAINST FLANKING NANEUVERS 

(4) FALLING BACK 

YOUR CHOICES FOR OFFENSIVE STRATEGY ARE: 

(1) ARTILLERY ATTACK 

(2) FRONTAL ATTACK 

(3) FLANKING NANEUVERS 

(4) ENCIRCLEHENT 

YOU NAY SURRENDER BY TYPING A '5' FOR YOUR STRATEGY. 



CONFEDERATE GENERAL— HOU HUCH DO YOU UISH TO SPEND FOR 

- FOOD ? 100000 

- SALARIES.. ? 140000 

- AHMUNITION ? 180000 

UNION GENERAL HOU MUCH DO YOU UISH TO SPEND FOR 

- FOOD ? 120000 

- SALARIES.. ? 140000 

- AMMUNITION ? 237500 

CONFEDERATE MORALE IS FAIR 
UNION MORALE IS FAIR 
CONFEDERATE GENERAL YOU ARE ON THE OFFENSIVE 

CONFEDERATE STRATEGY ? 4 
UNION STRATEGY ? 2 





CONFEDERACY 


UNION 


CASUALTIES 


18805 


I373B 


DESERTIONS 


13 


10 



COMPARED TO THE ACTUAL CASUALTIES AT SEVEN DAYS 
CONFEDERATE: ?1 Z OF THE ORIGINAL 
UNION: 87 Z OF THE ORIGINAL 

THE UNION UINS SEVEN DAYS 
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UHICH BATTLE DO YOU UISH TO SIHULATE? 4 



THIS IS THE BATTLE OF FREDERICKSBURG 

DEC 13, 1842. THE CONFEDERACY UNDER LEE SUCCESSFULLY 

REPULSED AN ATTACK BY THE UNION UNDER GEN. BURNSIDE. 



HEN 

HONEY 

INFLATION 



CONFEDERACY 

76417 
♦ 335800 

27 X 



UNION 
122191 
t 552000 
8 Z 



CONFEDERATE GENERAL— HOU HUCH DO YOU UISH TO SPEND FOR 

- FOOD ? 100000 

- SALARIES.. ? 100000 

- AMMUNITION ? 135800 

UNION GENERAL— HOU HUCH DO YOU UISH TO SPEND FOR 

- FOOD ? 130000 

- SALARIES.. ? 150000 

- AMMUNITION ? 272000 



HORRISTOUN, NEU JERSEY" 



2 PRINT TAB(24> "CIVIL UAR" 

4 PRINT TAB(15> "CREATIVE COHPUTINO 

4 PRINT : PRINT : PRINT 

20 REN ORIGINAL GAME DESIGN: CRAN, GOODIE, HIBBARD LEXINGTON H.S. 

30 REH MODIFICATIONS: G. PAUL, R. HESS (TIES), 1973 

50 DIH S(4),C«(t4>,NI<14>,H2(l4>,CI(14>,C2<l4>,M(t4> 

(SO REH UNION INFO ON LIKELY CONFEDERATE STRATEGY 

70 S(1)=25 : S(2>=25 : S(3>=25 : S(4)=25 

82 REN READ HISTORICAL DATA. 

84 FOR D»l TO 14 

84 READ C«(D),H1(D),M2(D),C1(D),C2(D),H(D) 

88 NEXT D 

8? LET D«RHD(-I) 

90 PRINT 

100 PRINT "DO YOU UANT INSTRUCTIONS"; 

110 INPUT X» 

120 IF XI="YE5" THEN 160 

130 IF XI*"NO" THEN 370 

140 PRINT "YES OR NO — "; 

130 GOTO 110 

160 PRINT " 



CONFEDERATE MORALE IS FAIR 
UNION MORALE IS HIGH 
CONFEDERATE GENERAL— YOU ARE ON THE DEFENSIVE 

CONFEDERATE STRATEGY ? 2 
UNION STRATEGY ? 4 

CONFEDERACY UNION 
CASUALTIES 4070 10360 

DESERTIONS 11 6 

COMPARED TO THE ACTUAL CASUALTIES AT FREDERICKSBURG 
CONFEDERATE: 91 Z OF THE ORIGINAL 
UNION: 82 Z OF THE ORIGINAL 

THE CONFEDERACY UINS FREDERICKSBURG 



UHICH BATTLE DO YOU UISH TO SIHULATE? 15 



170 PRINT 

180 PRINT 

190 PRINT 

200 PRINT 

210 PRINT 

220 PRINT 

230 PRINT 

240 PRINT 

245 PRINT 

250 PRINT 

240 PRINT 

270 PRINT 

280 PRINT 

290 PRINT 

300 PRINT 

310 PRINT 

320 PRINT 

330 PRINT 

340 PRINT 

350 PRINT 

340 PRINT 

370 PRINT 



"THIS IS A CIVIL UAR SIMULATION." 
"TO PLAY, TYPE A RESPONSE UHEN THE COMPUTER ASKS." 
"REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR" 
"RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE" 
"BASED ON THE ACTUAL OCCURRENCE. MOST BATTLES TEND TO RESULT" 
"A3 THEY DID IN THE CIVIL UAR, BUT IT ALL DEPENDS ON YOUH" 

"THE OBJECT OF THE GAME IS TO UIN AS MANY BATTLES AS "; 
"POSSIBLE." 

"YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:" 

(1) ARTILLERY ATTACK" 

(2) FORTIFICATION AGAINST FRONTAL ATTACK- 
IS) FORTIFICATION AGAINST FLANKING MANEUVERS" 
(4) FALLING BACK" 

" YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:" 

(1) ARTILLERY ATTACK" 

(2) FRONTAL ATTACK" 

(3) FLANKING MANEUVERS" 

(4) ENCIRCLEMENT" 

"YOU HAY SURRENDER BY TYPING A '5' FOR YOUR STRATEGY." 



THE CONFEDERACY HAS UON I BATTLES AND LOST 1 
THE UNION HAS UON THE UAR 

FOR THE 2 BATTLES FOUGHT (EXCLUDING RERUNS) 

CONFEDERACY UNION 

HISTORICAL LOSSES 25991 28502 

SIMULATED LOSSES 23700 24115 



ARE THERE TUO GENERALS PRESENT "} 



Z OF ORIGINAL 



91 



85 
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380 PRINT 

390 IHPUT 

400 IF Bl* 

410 IF Bt 

420 PRINT 

42S PRINT 

430 LET D' 

440 IF Bl 

450 LET D< 

440 PRINT 

470 PRINT 

480 PRINT 

490 PRINT 

500 PRINT 

510 PRINT 

520 PRINT 

530 PRINT 

540 PRINT 

550 PRINT 

540 PRINT 

570 INPUT 

5B0 IF Xt= 

590 IF X« 

400 L*0:U= 

410 F(2)=0 

420 PRINT ' 



"(ANSWER YES OR NO)"; 
B» 
YES" THEN 430 
<> "NO" THEN 380 

YOU ARE THE CONFEDERACY. GOOD LUCK!" 

1 

<> "YES" THEN 440 

2 

"SELECT A BATTLE BY TYPING A NUHBER FROH 1 TO 14 ON" 

"REOUEST. TYPE ANY OTHER NUNBER TO END THE SIMULATION." 

"BUT '0' BRINGS BACK EXACT PREVIOUS BATTLE SITUATION" 

■ALLOWING YOU TO REPLAY IT" 

"NOTE: A NEGATIVE FOOD* ENTRY CAUSES THE PROGRAM TO " 
"USE THE ENTRIES FROH THE PREVIOUS BATTLE" 

"AFTER REOUESTING A BATTLE, DO YOU UISH "; 
"BATTLE DESCRIPTIONS "; 
"(ANSUER YES OR NO)"; 
XI 

YES" THEN 400 
<> "NO" THEN 540 
O:RI=OsO1=0:N3=O:N4=0:PI=0:P2=0:T1=O:T2=O 

H(2)=OtB(2)=0:R2=0:02=OsC4=0:F=0:UO=0:Y=0:Y2=0:U=0:U2=0 



430 

440 

450 

455 

440 

445 

470 

480 

490 

700 

710 

720 

940 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1040 

1070 

1080 

1090 



1100 
1110 
1120 
1125 
1130 
1140 
1150 
1140 
1170 
1180 
1190 
1195 
1200 
1210 
1220 
1230 
1240 
1250 
1240 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1340 
1370 
1380 
1390 



PRINT "UHICH BATTLE DO YOU UISH TO SIHULATE"; 

INPUT A 

IF A <> THEN 440 

IF R <> THEN 1140 

IF A <= THEN 2840 

IF A >= 15 THEN 2040 

LET Ct=CKA> 

LET HI=NI(A> 

LET H2=M2(A> 

LET C1=CMA) 

LET C2=C2(A) 

LET H=H(A) 

LET U=0 

REN INFLATION CALC 

LET I1=I0*(L-U>«2 

LET I2=10t(U-L)*2 

REH - HONEY AVAILABLE 

LET D(1)»100*INT((N1«(100-I1)/2000)*(1t(RI-01)/(RI+1))+.5) 

LET D(2)=tOO*INT(N2«(IOO-I2)/2000«.5) 

IF Bt <> "YES" THEN 1050 

LET D<2>=100*INT<(M2*(tOO-I2>/2000>«(1+(R2-Q2>/(R2+l>)+.5> 

REH - NEN AVAILABLE 

LET M5=INT<HI»<1t<Pt-T1)/<H3«l>>) 

LET N4=INT(N2»(t+<P2-T2>/<H4*l>)> 

LET FI=5«HI/4 

PRINT " 



PRINT "THIS IS THE BATTLE OF ";Ct 

IF XI«"NO" THEN 1150 

IF A>I1 THEN 1130 

ON A GOTO 3580,3420,3450,3490,3720,3750,3780,3000,3830,3840,3890 

ON A-ll GOTO 3920,3950,3980 

PRINT CI" INSTANT REPLAY" 

PRINT 

" "."CONFEDERACY"," UNION" 

"HEN"," "H5," "H4 

"HONEY", "l";D<1),"l";D<2> 

"INFLATION"," ";iui5;"r," ";I2;"I" 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

REH - ONLY IN PRINTOUT IS CONFED INFLATION = I1+15Z 

REH - IF TUO GENERALS, INPUT CONFED. FIRST 

FOR 1=1 TO D 

IF Dl <> "YES" THEN 1240 

IF 1=2 THEN 1240 

PRIHT "CONFEDERATE GENERAL — "; 

PRINT "HOU HUCH DO YOU UISH TO SPEND FOR" 

PRINT " - FOOD "J 

INPUT F 

IF F >= THEN 1340 

IF Rl <> THEN 1330 

PRINT "NO PREVIOUS ENTRIES" 

GOTO 1270 

PRINT "ASSUHE YOU UANT TO KEEP SAHE ALLOCATONS" 

PRINT 

GOTO 1510 

LET F<I)=F 

PRINT " - SALARIES.."; 

INPUT H(I) 

LET N«1 



1400 IF HUXO THEN 1490 

1410 PRINT " - AHHUNITION"; 

1420 INPUT B(I) 

1430 LET N=2 

1440 IF BIIXO THEN 1490 

1450 PRINT 

1440 IF FUHHdHBU) <= DID THEN 1510 

1470 PRINT "THIHK AGAIN! YOU HAVE ONLY l"D(I) 

1480 GOTO 1270 

1490 PRINT "NEGATIVE VALUES NOT ALLOUED." 

1500 ON N GOTO 1370,1410 

1510 IF Bt <> "YES" THEN 1550 

1520 IF 1=2 THEN 1550 

1530 PRINT "UNION GENERAL "; 

1540 NEXT I 

1550 FOR Z=1 TO D 

1540 IF Bl <> "YES" THEN 1420 

1570 ON Z 60T0 1580,1400 

1580 PRINT "CONFEDERATE "j 

1590 GOTO 1420 

1400 PRINT " UNION ■'; 

1410 REH - FIND HORALE 

1420 LET 0=((2»F<ZK2+H(ZK2)/Fr2tl> 

1430 IF 0<10 THEH 1440 

1440 PRINT "HORALE IS HIGH" 

1450 GOTO 1700 

1440 IF 0<5 THEN 1490 

1470 PRINT "MORALE IS FAIR" 

1480 GOTO 1700 

1490 PRINT "HORALE IS POOR" 

1700 IF Bl <> "YES" THEN 1740 

1710 LET 0<Z)=0 

1720 NEXT Z 

1730 LET 02=0<2) 

1740 LET 0=0(1) 

1750 PRINT "CONFEDERATE GENERAL—"; 

1740 REH - ACTUAL OFF/DEF BATTLE SITUATION 

1770 IF H <> 3 THEN 1800 

1780 PRINT "YOU ARE ON THE OFFENSIVE" 

1790 GOTO 1840 

1800 IF M <> 1 THEN 1830 

1810 PRIHT "YOU ARE OH THE DEFENSIVE" 

1820 GOTO 1840 

1830 PRINT "BOTH SIDES ARE ON THE OFFENSIVE " 

1840 PRINT 

1850 REM - CHOOSE STRATEGIES 

1840 IF Bl <> "YES" THEN 1910 

1870 FOR 1=1 TO 2 

1880 ON I GOTO 1090,1920 

1890 PRINT "CONFEDERATE STRATEGY "; 

1900 GOTO 1920 

1910 PRINT "YOUR STRATEGY "; 

1920 INPUT Y 

1930 IF ABSIY-3X3 THEN 1940 

1940 PRINT "STRATEGY";Y;"NOT ALLOUED." 

1950 GOTO 19t0 

1940 IF BI="YES" THEN 2000 

1970 IF Y*5 THEN 2830 

1980 GOSUB 3110 

1990 BOTO 2170 

2000 IF 1=2 THEH 2040 

2010 LET Yt=Y 

2020 PRINT "UNION STRATEGY "; 

2030 NEXT I 

2040 LET Y2=Y 

2050 LET Y=Y1 

2040 IF Y2=5 THEN 2020 

2070 REH I SIMULATED LOSSES-NORTH 

2080 LET C4=(2»C2/5)«(ltt/(2»(ABS(Y2-Y)+1))) 

2090 LET C4=C4«(l.28*(5*H2/4)/(B(2) + D) 

2100 LET C4=INT(C4«(l*1/02)t.5) 

2110 REH - IF LOSS > HEN PRESENT, RESCALE LOSSES 

2120 LET E2= 1 00/02 

2130 IF INT(C4*E2XH4 THEN 2190 

2140 LET C4=INT(13«H4/20) 

2150 LET E2=7»C4/13 

2140 LET 02=1 

2170 REM - CALCULATE SIMULATED LOSSES 

2180 PRINT 

2190 PRINT " 



"."CONFEDERACY", "UNION" 

2200 LET C5=(2*C1/5)*(l+t/(2*(ABS(Y2-Y)+l))) 

2210 LET C5=INT(C5*(1*l/0)«(1.28+F1/(B<1>+1)>+.5> 

2220 LET E=IOO/0 

2230 IF C5t100/0<MI»(1t(P1-TI)/(H3+D) THEN 2270 

2240 LET C5=INT(l3»N1/20*(1t(PI-TI)/(M3t1))) 

2250 LET E=7*C5/13 

2240 LET U=1 

2270 IF D=1 THEN 2500 

2200 PRINT "CASUALTIES",C5,C4 
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2290 
2300 
23)0 
2320 
2330 
2340 
2350 
2340 
2370 
2375 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2440 
2470 
24S0 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2540 
2570 
2580 
2590 
2400 
2410 
2420 
2430 
2440 
2450 
2440 
2470 
2480 
2490 
2700 
2710 
2720 
2730 
2740 
2750 
2740 
2770 
2780 
2790 
2800 
2810 
2B20 
2830 
2840 
2850 
2840 



2870 
2880 
2890 
2900 
2910 
2915 
2920 
2930 
2940 
2950 
2940 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3040 
3070 
3080 
3090 
3100 
3110 
3120 
3130 



PRINT "DESERTIONS", INT(E),INT(E2> 

PRINT 

IF Bl <> "YES" THEN 2530 

PRINT "COMPARED TO THE ACTUAL CASUALTIES AT "C« 

PRINT "C0NFEDERATEl"INT(100»(C5/CI)t.5)"Z OF THE ORIGINAL" 

PRINT "UNION: "INK I00»(C6/C2)+.5)"X OF THE ORIGINAL" 

PRINT 

REN - 1 UHO ONE 

IF U <> 1 THEN 2380 

IF 02=1 THEN 2440 

IF U=l THEN 2420 

IF U2=l THEN 2440 

IF C5tE=C4+E2 THEN 2440 

IF C5*E<C4+E2 THEN 2440 

PRINT "THE UNION UINS "C» 

GOTO 2400 

PRINT "THE CONFEDERACY UINS "C* 

GOTO 2440 

PRINT "BATTLE OUTCONE UNRESOLVED" 

LET UO=UOH 

IF A=0 THEN 2790 

GOTO 2480 

LET C4=INT(17*C2*C1/(C5«20)) 

LET E2=5»0 

GOTO 2280 

PRINT "YOUR CASUALTIES UERE "INT(100«tC5/C1 )t.5)"X OF » 

PRINT "THE ACTUAL CASUALTIES AT ";C* 

PRINT 

REH - FIND UHO HON 

IF U=1 THEN 2590 

IF C5+E<l7»C2*C1/(C5»20m*0 THEN 2430 

PRINT "YOU LOSE ";C» 

IF A=0 THEN 2790 

LET L=L+1 

GOTO 2480 

PRINT "YOU UIN ";C« 

REH - CUMULATIVE BATTLE FACTORS UHICH ALTER HISTORICAL 

REH RESOURCES AVAILABLE. IF A REPLAY DON'T UPDATE. 

IF A=0 THEN 2790 

LET U'U+I 

LET T1=TI+C5+E 

LET T2=T2+C4tE2 

LET PI=P1+C1 

LET P2=P2*C2 

LET 01=01+(F(1)+H(1)tB(1)) 

LET Q2=Q2t<F<2HH(2>tB<2>> 

LET R1=RHM1*(100-I1)/20 

LET R2=R2+H2*< 100-121/20 

LET H3=H3tHI 

LET H4=H4*H2 

GOSUB 3300 

U=0:U2=0 

PRINT "- --'■ 

GOTO 420 

REH FINISH OFF 

PRINT "THE CONFEDERACY HAS SURRENDERED" 
GOTO 2840 

PRINT "THE UNION HAS SURRENDERED." 
PRINT " 



PRINT "THE CONFEDERACY "; 

PRINT "HAS UON "U" BATTLES AND LOST "L 

IF Y=5 THEN 2940 

IF Y2=5 THEN 2920 

IF U <= L THEN 2940 

IF Y=5 THEN 2940 

PRINT "THE CONFEDERACY HAS UON THE UAR" 

GOTO 2950 

PRINT "THE UNION HAS UON THE UAR" 

PRINT 

IF Rl=0 THEN 3100 

PRINT "FOR THE "U+L+UO" BATTLES FOUGHT (EXCLUDING RERUNS)" 

PRINT " "," "," "; 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



"CONFEDERACY"," UNION" 

"HISTORICAL LOSSES", INT(PI+.5>,INT(P2*. 5) 

"SIMULATED LOSSES", INTITIt. 5), INTU2+.5) 



I OF ORIGINAL", INK 100*(T1/P1 > + . 5), INT ( 1 00»< T2/P2)+. 5) 
IF B»="YES" THEN 3100 
PRINT 

PRINT "UNION INTELLIGENCE SUGGESTS THAT THE SOUTH USED " 
PRINT "STRATEGIES 1, 2, 3, 4 IN THE FOLLOUING PERCENTAGES" 
PRINT S(1);S(2);S(3);S(4) 

REH — - 

STOP 

REM - UNION STRATEGY IS COMPUTER CHOSEN 

PRINT "UNION STRATEGY IS "; 

IF A <> THEN 3180 



3140 INPUT Y2 

3150 IF Y2 <= THEN 3140 

3155 IF Y2<5 THEN 3290 

3140 PRINT "ENTER 1 , 2 ,3 , OR 4 (USUALLY PREVIOUS UNION STRATEGY)" 

3170 GOTO 3140 

3180 LET S0=0 

3190 LET R=100«RND<0) 

3200 FOR 1 = 1 TO 4 

3210 LET S0=S0+S(I> 

3220 REM - IF ACTUAL STRATEGY INFO IS IN PROGRAM DATA STATEMENTS 

3230 REM THEN R-100 IS EXTRA UEIGHT GIVEN TO THAT STATEGY. 

3240 IF R<SO THEN 3270 

3250 NEXT I 

3240 REM ■ IF ACTUAL STRAY. IN.THEH HERE IS Y2= HIST. STRAT. 

3270 LET Y2=I 

3280 PRINT Y2 

3290 RETURN 

3300 REM LEARN PRESENT STRATEGY, START FORGETTING OLD ONES 

3310 REM - PRESENT STRATEGY OF SOUTH GAINS 3»S, OTHERS LOSE S 

3320 REM PROBABILITY POINTS, UNLESS A STRATEGY FALLS BELOU 5Z. 

3330 LET S=3 

3340 LET 50=0 

3350 FOR 1 = 1 TO 4 

3340 IF S(I) <= 5 THEN 3390 

3370 LET S(I)=S(I)-S 

3380 LET SO=SO+S 

3390 NEXT I 

3400 LET S(Y)=S(Y)*SO 

3410 RETURN 

3420 REM - HISTORICAL DATA. ..CAN ADD MORE (STRAT., ETC) BY INSERTING 

3430 REM DATA STATEMENTS AFTER APPRO. INFO, AND ADJUSTING READ 

3440 DATA "BULL RUN", 18000, 18500,1947,2708, I 

3450 DATA "SHILOH", 40000. ,44894. ,10499,13047,3 

3440 DATA "SEVEN DAYS", 95000. ,1 15000. ,20414,15849,3 

3470 DATA "SECOND BULL RUN", 54000. ,43000. ,10000, 14000, 2 

3480 DATA "ANTIETAH", 40000. ,50000. ,10000, 12000, 3 

3490 DATA "FREDERICKSBURG", 75000. ,120000. ,5377, 12453, 1 

3500 DATA "MURFREESBORO", 38000. ,45000.,) 1000,12000,1 

3510 DATA "CHANCELLORSVILLE", 32000, 90000. ,13000, 17197,2 

3520 DATA "VICKSBURG", 50000. ,70000. ,12000,19000,1 

3530 DATA "GETTYSBURG", 72500. ,85000. ,20000,23000,3 

3540 DATA "CHICKAMAUGA", 44000. ,40000. ,18000, 14000, 2 

3550 DATA "CHATTANOOGA", 37000. ,40000. ,34700. ,5800, 2 

3560 DATA "SPOTSYLVANIA", 42000. ,1 10000. ,17723, 18000,2 

3570 DATA "ATLANTA", 45000. ,100000. ,8500, 3700,1 

3580 PRINT "JULY 21, 1841. GEN. BEAUREGARD, COMMANDING THE SOUTH, HET" 

3590 PRINT "UNION FORCES UITH GEN. HCDOUELL IN A PREMATURE BATTLE AT" 

3400 PRINT "BULL RUN. GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK." 

3410 GOTO 1150 

3420 PRINT "APRIL 4-7, 1842. THE CONFEDERATE SURPRISE ATTACK AT" 

3430 PRINT "SHILOH FAILED DUE TO POOR ORGANIZATION." 

3440 GOTO 1150 

3450 PRINT "JUNE 25-JULY 1, 1842. GENERAL LEE (CSA) UPHELD THE" 

3440 PRINT "OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. HCCLELLAN" 

3470 PRINT "AND THE UNION FORCES AUAY FROM RICHHOND." 

3480 GOTO 1150 

3490 PRINT "AUG 29-30, 1842. THE COMBINED CONFEDERATE FORCES UNDER"; 

3495 PRINT " LEE" 

3700 PRINT "AND JACKSON DROVE THE UNION FORCES BACK INTO UASHINGTON." 

3710 GOTO 1150 

3720 PRINT "SEPT 17, 1842. THE SOUTH FAILED TO INCORPORATE MARYLAND" 

3730 PRINT "INTO THE CONFEDERACY." 

3740 GOTO 1150 

3750 PRINT "DEC 13, 1842. THE CONFEDERACY UNDER LEE SUCCESSFULLY" 

3740 PRINT "REPULSED AN ATTACK BY THE UNION UNDER GEN. BURNSIDE." 

3770 GOTO 1150 

3780 PRINT "DEC 31, 1842. THE SOUTH UNDER GEN. BRAGG UON A CLOSE ": 

3785 PRINT "BATTLE." 

3790 GOTO 1150 

3800 PRINT "HAY 1-4, 1843. THE SOUTH HAD A COSTLY VICTORY AND LOST" 

3810 PRINT "ONE OF THEIR OUTSTANDING GENERALS, 'STONEUALL' JACKSON." 

3820 GOTO 1150 

3830 PRINT "JULY 4, 1863. VICKSBURG UAS A COSTLY DEFEAT FOR THE SOUTH" 

3840 PRINT "BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI." 

3850 GOTO 1150 

3840 PRINT "JULY 1-3, 1843. A SOUTHERN MISTAKE BY GEN. LEE AT ": 

3845 PRINT "GETTYSBURG" 

3870 PRINT "COST THEM ONE OF THE MOST CRUCIAL BATTLES OF THE UAR." 

3880 GOTO 1150 

3890 PRINT "SEPT. 15, 1843. CONFUSION IN A FOREST NEAR CHICKAMAUGA LED" 

3900 PRINT "TO A COSTLY SOUTHERN VICTORY." 

3910 GOTO 1150 

3920 PRINT "NOV. 25, 1843. AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS'" 

3930 PRINT "ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE SIEGE." 

3940 GOTO 1150 

3950 PRINT "MAY 5, 1844. GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO" 

3940 PRINT "FAIL HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG." 

3970 GOTO 1150 

39B0 PRINT "AUGUST, 1844. SHERMAH AND THREE VETERAN ARHIES CONVERGED" 

3990 PRINT "ON ATLANTA AND DEALT THE DEATH BLOU TO THE CONFEDERACY." 

4000 GOTO 1150 

4010 END 
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Combat 




\ » 



^^»o>»--— 



In this game, you are fighting a small- 
scale war with the computer. You have 
72,000 troops which you first must 
distribute among your Army, Navy, and 
Air Force. You may distribute them in 
any way you choose as long as you 
don't use more than 72,000. 

You then attack your opponent (the 
computer) and input which service and 
the number of men you wish to use. 
The computer then tells you the 
outcome of the battle, gives you the 
current statistics and allows you to 
determine your next move. 

After the second battle, it is decided 
from the total statistics whether you 
win or lose or if a treaty is signed. 

This program was created by Bob 
Dores of Milton, Massachusetts. 



COMBAT 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 



I AM AT UAR UITH YOU. 




UE HAVE 72000 SOLDIERS APIECE. 


DISTRIBUTE YOUR FORCES. 




ME 


YOU 


ARMY 30000 


7 25000 


NAVY 20000 


? 25000 


A.F. 22000 


? 22000 


YOU ATTACK FIRST. TYPE 1 


FOR ARMY 2 FOR NAVY 


AND 3 FOR AIR FORCE. 

? 3 

HOU MANY MEN 






? 22000 




YOU UIPED OUT ONE OF MY 


ARMY PATROLS, BUT I DESTROYED 


2 NAVY BASES AND BOMBED 


3 ARMY BASES. 


YOU 


ME 


ARMY 6250 


20000 


NAVY 8333 


20000 


A.F. 22000 


22000 


UHAT IS YOUR NEXT MOVE? 




ARMY=1 NAVY=2 AIR F0RCE=3 

? T 


- J 

HOU NANY MEN 




T 20000 




MY NAVY AND AIR FORCE IN 


A C0HBINED ATTACK LEFT 


YOUR COUNTRY IN SHAMBLES 


. 



FROM THE RESULTS OF BOTH OF YOUR ATTACKS, 

YOU L0ST-I CONQUERED YOUR COUNTRY. IT SERVES YOU 

RIGHT FOR PLAYING THIS STUPID GAME!!! 
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1 PRINT TAB(33);"C0HBAT" 

2 PRINT TABU5); "CREATIVE CONPUTING HORRISTOUN, NEU JERSEY" 

3 PRINT: PRINT: PRINT 

4 PRINT "I AH AT UAR UITH YOU.": PRINT "UE HAVE 72000 SOLDIERS APIECE." 

5 PRINT "DISTRIBUTE YOUR FORCES." 

6 PRINT , "HE", "YOU" 

7 PRINT "ARHY", 30000, 

8 INPUT A 

V PRINT "NAVY", 20000, 

10 INPUT B 

11 PRINT "A. F.", 22000, 

12 INPUT C 

13 IF A+B+O72000 THEN 5 

14 D=30000 

15 £=20000 

16 F=22000 

17 PRINT "TOU ATTACK FIRST. TYPE 1 FOR ARHY 2 FOR NAVY" 
IB PRINT "AND 3 FOR AIR FORCE." 

1? INPUT Y 

20 PRINT "HOU HANY HEN" 

21 INPUT X 

22 IF X<0 THEN 20 

23 ON Y GOTO 100,200,300 
100 IF X>A THEN 20 

105 IF X<A/3 THEN 120 

110 IF X<2*A/3 THEN 150 

115 GOTO 270 

120 PRINT "YOU LOST";X;"MEN FROH YOUR ARHY." 

125 A=INT(A-X) 

130 GOTO 500 

150 PRINT "YOU L0ST";INT(X/3);"HEN BUT I LOST"; IHT(2*D/3) 

155 A=INT(A-X/3) 

160 D=0 

165 GOTO 500 

200 IF X>B THEN 20 

210 IF X<E/3 THEN 230 

215 IF X<2»E/3 THEN 250 

220 GOTO 270 

230 PRINT "YOUR ATTACK UAS STOPPED!" 

232 B=INT(B-X> 

235 GOTO 500 

250 PRINT "YOU DESTR0YED";INT(2*E/3) ;"0F HY ARHY" 

255 E=INT(E/3) 

260 GOTO 500 

270 PRINT "YOU SUNK 1 OF HY PATROL BOATS BUT I UIPED OUT 2" 

275 PRINT "OF YOUR A.F. BASES AND 3 ARHY BASES." 

280 A=INT(A/3> 

285 C=INT(C/3) 

290 E=INT(2*E/3) 

293 GOTO 500 

300 IF X>C THEN 20 

310 IF X<C/3 THEN 350 

320 IF X<2*C/3 THEN 370 

330 GOTO 380 

350 PRINT "YOUR ATTACK UAS UIPED OUT." 

355 C=INT(C-X) 

360 GOTO 500 

370 PRINT "UE HAD A DOGFIGHT- YOU UON- AND FINISHED YOUR HISSION." 

375 D=INT(2»D/3) 

377 E=INT(E/3) 

378 F=INT(F/3) 

379 GOTO 500 



380 PRINT "YOU UIPED OUT ONE OF HY ARHY PATROLS, BUT I DESTROYED" 

381 PRINT "2 NAVY BASES AND BOHBED 3 ARHY BASES." 
385 A=INT(A/4> 

387 B=INT(B/3> 
390 D=INT(2*D/3) 

500 PRINT 

501 PRINT, "YOU", "HE" 
510 PRINT "ARHY", A, D 
520 PRINT "NAVY",B,E 
530 PRINT "A.F.",C,F 

1000 PRINT "UHAT IS YOUR NEXT HOVE?" 

1010 PRIHT "ARHY=1 NAVY=2 AIR F0RCE=3" 

1020 INPUT G 

1030 PRINT "HOU HANY HEN" 

1040 INPUT T 

1045 IF T<0 THEN 1030 

1050 ON G GOTO 1600,1700,1800 

1600 IF T>A THEN 1030 

1610 IF KD/2 THE 1630 

1615 PRIHT "YOU DESTROYED HY ARHY!" 

1616 D=0 

1617 GOTO 2000 

1630 PRINT "I UIPED OUT YOUR ATTACK!" 

1635 A=A-T 

1640 GOTO 2000 

1700 IF T>B THEN 1030 

1710 IF KE/2 THEN 1750 

1720 GOTO 1770 

1750 PRINT "I SUNK 2 OF YOUR BATTLESHIPS, AND HY AIR FORCE" 

1751 PRINT "UIPED OUT YOUR UNGAURDED CAPITOL." 
1755 A=A/4 

1760 B=B/2 
1765 GOTO 2000 

1770 PRINT "YOUR NAVY SHOT DOUN THREE OF HY XIII PLANES," 

1771 PRINT "AND SUNK 3 BATTLESHIPS." 
1775 F=2*F73 

1780 E=(E/2) 

1790 G0T02000 

1800 IF T>C THEN 1030 

1810 IF T>F/2 THEN 1830 

1820 GOTO 1850 

1830 PRINT "HY NAVY AND AIR FORCE IN A COHBINED ATTACK LEFT" 

1831 PRINT "YOUR COUNTRY IN SHAHBLES." 
1835 A=A/3 

1837 B=B/3 
1840 C=C73 
1845 GOTO 2000 

1850 PRINT "ONE OF YOUR PLANES CRASHED INTO HY HOUSE. I AH DEAD. 

1851 PRINT "HY COUNTRY FELL APART." 
1860 GOTO 2010 

2000 PRINT 

2001 PRINT "FROH THE RESULTS OF BOTH OF YOUR ATTACKS," 

2002 IF A+B*C>3/2*(D+E+F) THEN 2010 

2005 IF AtB+C<2/3«(DtE+F) THEN 2015 

2006 PRINT "THE TREATY OF PARIS CONCLUDED THAT UE TAKE OUR" 

2007 PRINT "RESPECTIVE COUNTRIES AND LIVE IN PEACE." 

2008 GOTO 2020 

2010 PRINT "YOU UON, OH! SHUCKS!!!!" 
2012 GOTO 2020 

2015 PRINT "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU" 

2016 PRINT "RIGHT FOR PLAYING THIS STUPID GAHEH!" 
2020 END 
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Craps 



This game simulates the game of 
craps played according to standard 
Nevada craps table rules. That is: 

1 . A 7 or 1 1 on the first roll wins 

2. A 2, 3, or 12 on the first roll loses 

3. Any other number rolled becomes 
your "point." You continue to roll; if 
you get your point, you win. If you 
roll a 7, you lose and the dice change 
hands when this happens. 

This version of craps was modified 
by Steve North of Creative Computing. 
It is based on an original which 
appeared one day on a computer at 
DEC. 



CRAPS 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



2,3,12 ARE LOSERS 4,5,6,8,9,10 POINTS 
PICK A NUHBER AND INPUT TO ROLL DICE? 1 
INPUT THE AMOUNT OF YOUR UAGER.? 500 

I UILL NOU THROU THE DICE 

7 NATURAL A UINNER!!!! 

7 PAYS EVEN MONEY, YOU UIN 500 DOLLARS 

IF YOU UANT TO PLAY A6AIN PRINT 5 IF NOT PRINT 2? 5 
YOU ARE NOU AHEAD » 500 
INPUT THE AMOUNT OF YOUR UAGER. 7 230 

I UILL NOU THROU THE DICE 

6 POINT I UILL ROLL AGAIN 

5 NO POINT I UILL ROLL A6AIN 

5 NO POINT I HILL ROLL AGAIN 
4 NO POINT I UILL ROLL AGAIN 

7 CRAPS YOU LOSE 
YOU LOSE » 230 

IF YOU UANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 5 
YOU ARE NOU AHEAD I 270 
INPUT THE AH0UNT OF YOUR UAGER.? 400 

1 UILL NOU THROU THE DICE 

9 POINT I UILL ROLL AGAIN 

2 NO POINT I UILL ROLL A6AIN 

10 NO POINT I UILL ROLL AGAIN 

11 NO POINT I UILL ROLL AGAIN 

8 NO POINT I UILL ROLL AGAIN 

6 NO POINT I UILL ROLL AGAIN 
10 NO POINT I UILL ROLL AGAIN 

7 CRAPS YOU LOSE 
YOU LOSE ♦ 400 

IF YOU UANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 5 
YOU ARE NOU UNDER * 130 
INPUT THE AHOUNT OF YOUR UAGER.? 500 

1 UILL NOU THROU THE DICE 

4 POINT I UILL ROLL AGAIN 

2 NO POINT I UILL ROLL AGAIN 

3 NO POINT I UILL ROLL AGAIN 

6 NO POINT I UILL ROLL AGAIN 

5 NO POINT I UILL ROLL AGAIN 

7 CRAPS YOU LOSE 
YOU LOSE ♦ 500 

IF YOU UANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 5 
YOU ARE NOU UNDER I 630 
INPUT THE AMOUNT OF YOUR UAGER.? 630 

I UILL NOU THROU THE DICE 

3 CRAPS. ..YOU LOSE 
YOU LOSE 630 DOLLARS 

IF YOU UANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 2 
YOU ARE NOU UNDER $ 1260 
TOO BAD, YOU ARE IN THE HOLE. COME AGAIN. 




CSbJIl* 
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5 PRINT TAB (33); "CRAPS" 

10 PRINT TAB(15);"CREAT|VE COMPUTING HORRISTOUN, NEU JERSEY" 

12 PRINT:PRINT:PliINT 

15 LET R=0 

20 PRINT "2,3,12 ARE LOSERS 4,5,6,419,10 POINTS" 

21 LET T=1 

22 PRINT "PICK A NUMBER AND INPUT TO ROLL DICE": 

23 INPUT Z 

24 LET X=(RND(0)) 

25 LET T =T+1 

26 IF T<=Z GOTO 24 

27 PRINT"INPUT THE AMOUNT OF YOUR UAGER.": 

28 INPUT F 
30 PRINT " I UILL NOU THROU THE DICE" 

40 LET E = INT(7*RND(D) 

41 LET S = INT(7»RND(D) 

42 LETX=E+S 
50 IF X=7 GOTO 180 
55 IF X=11 GOTO 180 
60 IF X=1 GOTO 40 
62 IF X=2 GOTO 195 
65 IF X=0 GOTO 40 
70 IF X=2 GOTO 200 
80 IF X=3 GOTO 200 
90 IF X = 12 GOTO 200 
125 IF X=5 80T0 220 
130 IF X =6 GOTO 220 
140 IF X=8 80T0 220 
150 IF X*9 80TO 220 
160 IF X =10 GOTO 220 
170 IF X=4 GOTO 220 
180 PRINT X "NATURAL. ...A UINNERIH!" 
185 PRINT X"PAYS EVEN MONEY, YOU UIN"F"DOLLARS" 
190 GOTO 210 

195 PRINT X"SNAKE EYES YOU LOSE" 

196 PRINT "YOU L0SE"F "DOLLARS" 

197 LET F=0-F 

198 SOTO 210 
200 PRINT X "CRAPS... YOU LOSE" 

205 PRINT "YOU L0SE"F"DOLLARS" 

206 LET F=0-F 

210 LET R= R*F 

211 60T0 320 
220 PRINT X "POINT I UILL ROLL AGAIN" 

230 LET H=INT(7*RND(D) 

231 LET Q=INT(7*RND(1>> 

232 LETO»H*Q 
240 IF 0=1 GOTO 230 
250 IF 0=7 60TO 290 
255 IF 0=0 GOTO 230 
260 IF 0=X GOTO 310 

270 PRINT "NO POINT I UILL ROLL AGAIN" 
280 GOTO 230 

290 PRINT 0' "CRAPS YOU LOSE" 

291 PRINT "TfOU LOSE l"F 

292 F=0-F 

293 GOTO 210 
300 GOTO 320 

310 PRINT X"A UINNER.... 

311 PRINT X "AT 2 TO 1 ODDS PAYS YOU.. 

312 LET F=2*F 

313 GOTO 210 

320 PRINT " IF YOU UANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2": 

330 INPUT M 

331 IF R<0 GOTO 334 

332 IF R>0 GOTO 336 

333 IF R=0 GOTO 338 

334 PRINT "YOU ARE NOU UNDER t";-R 

335 GOTO 340 

336 PRINT "YOU ARE NOU AHEAD »"R 

337 GOTO 340 

338 PRINT "YOU ARE NOU EVEN AT 0" 

340 IF M=5 GOTO 27 

341 IFR<OGOT0350 

342 IFR>0G0TO353 

343 IFR=0G0TQ355 

350 PRINT"TOO BAD, YOU ARE IN THE HOLE. COME AGAIN." 

351 G0T0360 

353 PRINT"CONGRATULATIONS — YOU CAME OUT A UINNER. COME AGAIN!" 

354 80T0360 

355 PRINT"C0NGRATULATI0NS— YOU CAME OUT EVEN, NOT BAD FOR AN AMATEUR" 
360 END 



...CONGRATS!!!!!!!!" 

.LET HE SEE.. 



,"2»F"DOLLARS" 
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Cube 



CUBE is a game played on the facing 
sides of a cube with a side dimension of 
2. A location is designated by three 
numbers — e.g., 1, 2, 1. The object is to 
travel from 1, 1, 1 to 3, 3, 3 by moving 
one horizontal or vertical (not 
diagonal) square at a time without 
striking one of 5 randomly placed 
landmines. You are staked to $500; 
prior to each play of the game you may 
make a wager whether you will reach 
your destination. You lose if you hit a 
mine or try to make an illegal move — 
i.e., change more than one digit from 
your previous position. 

Cube was created by Jerimac Ratliff 
of Fort Worth, Texas. 
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CREATIVE COHPUTING 



CUBE 

HORRISTOUN, NEU JERSEY 



DO YOU UANT TO SEE THE INSTRUCTIONS? (YES--1 ,N0 — 0) 

? 1 

THIS IS A GAHE IN UHICH YOU UILL BE PLAYING AGAINST THE 

RANDOM DECISION OF THE CONPUTER. THE FIELD OF PLAY IS A 

CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED 

BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START, 

YOU ARE AUTOHATICALLY AT LOCATION 1,1,1. THE OBJECT OF 

THE GAHE IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL, 

THE COMPUTER UILL PICK, .AT RANDOM, 5 LOCATIONS AT UHICH 

IT UILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS 

YOU LOSE. ONE OTHER DETAIL, YOU MAY HOME ONLY ONE SPACE 

IN ONE DIRECTION EACH HOVE. FOR EXAMPLE: FROH 1,1,2 YOU 

HAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE 

TUO OF THE NUHBERS ON THE SAME MOVE. IF YOU HAKE AN ILLEGAL 

HOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU HAY 

HAVE BET ON THAT ROUND. 



ALL YES OR NO QUESTIONS UILL BE ANSWERED BY A 1 FOR YES 
OR A (ZERO) FDR NO. 

UHEN STATING THE AMOUNT OF A UAOER, PRINT ONLY THE NUMDER 

OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED UITH 

500 DOLLAR ACCOUNT. 

GOOD LUCK 

UANT TO MAKE A UAGER? 

? 1 

HOU MUCH? 

? 200 

ITS YOUR MOVE 

? 1,1,2 

NEXT MOVE 

? 1,2,2 

NEXT HOVE 

? 2,2,2 

NEXT HOVE 

? 2,2,3 

NEXT HOVE 

? 2,3,3 

*t****BANG****** 

YOU LOSE 



3,*,3 




3,1,3 



3,1,1 



Wl.l 



YOU NOU HAVE 200 DOLLARS 
DO YOU UANT TO TRY AGAIN? 
? 1 

UANT TO MAKE A UAOER? 
? 1 

HOU HUCH? 
? 100 

ITS YOUR MOVE 

? 1,2,1 

NEXT HOVE 

? 2,2,1 

NEXT MOVE 

? 2,2,2 

NEXT MOVE 

? 2,3,2 

NEXT MOVE 

? 2,3,3 

NEXT MOVE 

7 3,3,3 

CONGRATULATIONS 

YOU NOU HAVE 300 DOLLARS 

DO YOU UANT TO TRY AGAIN? 

? 

TOUGH LUCK 

GOODBYE 
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10 PRINT TAB<34> "CUBE" 

20 PRINT TAB<15> "CREATIVE CONPUTINQ HORRISTOUN, NEU JERSEY" 

30 PRINT : PRINT : PRINT 

100 PRINT"DO YOU UANT TO SEE THE INSTRUCTIONS? (YES— 1 ,N0— 0)" 

110 INPUT B7 

120 IF B7=0 THEN 370 

130 PRINT"THIS IS A GAHE IN UHICH YOU UIU BE PLAYING AGAINST THE" 

HO PRINT"RANDOM DECISION OF THE COHPUTER. THE FIELD OF PLAY IS A" 

150 PRINT-CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED" 

140 PRINT"BY INPUTING THREE NUHBERS SUCH AS 2,3,1. AT THE START," 

170 PRINT"YOU ARE AUTOHATICALLY AT LOCATION 1,1,1. THE OBJECT OF" 

1B0 PRINT"THE GAHE IS TO GET TO LOCATION 3,3,3. ONE HINOR DETAIL," 

190 PRINT"THE COHPUTER WILL PICK, AT RANDOH, 5 LOCATIONS AT UHICH" 

200 PRINT"IT UILL PLANT LAND NINES. IF YOU HIT ONE OF THESE LOCATIONS 

210 PRINT"YOU LOSE. ONE OTHER DETAIL, YOU HAY HOVE ONLY ONE SPACE " 

220 PRINT"IN ONE DIRECTION EACH HOVE. FOR EXAMPLE: FROH 1,1,2 YOU" 

230 PRINT"HAY HOVE TO 2,1,2 OR 1,1,3. YOU HAY NOT CHANGE" 

240 PRINT"TUO OF THE NUHBERS ON THE SAHE HOVE. IF YOU HAKE AN ILLEGAL 

250 PRINT"HOVE, YOU LOSE AND THE COHPUTER TAKES THE MONEY YOU MAY" 

240 PRINT"HAVE BET ON THAT ROUND." 

270 PRINT 

2B0 PRINT 

290 PRINT"ALL YES OR NO OUESTIONS UILL BE ANSUERED BY A 1 FOR YES" 

300 PRINT'OR A (ZERO) FOR NO." 

310 PRINT 

320 PRINT"UHEN STATING THE AMOUNT OF A UAGER, PRINT ONLY THE NUMBER" 

330 PRINT"OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED UITH 

340 PRINT"500 DOLLAR ACCOUNT." 

350 PRINT 

340 PRINT»GOOD LUCK" 

370 LET A1=500 

380 LET A=INT(3*<RND(X>)> 

390 IF AOO THEN 410 

400 LET A=3 

410 LETB=INT(3*(RND(X)>> 

420 IFBO0THEK440 

430 LET B=2 

440 LETC=INT(3*(RND(X>>> 

450 IFCO0THEN470 

440 LETC=3 

470 LETD=INT(3*(RND(X>>> 

480 IFDO0THEN500 

490 LETD=1 

500 LETE=INT(3»(RND(X))> 

510 IFEO0THEN530 

520 LETE=3 

530 LETF=INT(3*(RND(X>)) 

540 IFFO0THEN540 

550 LETF=3 

540 LETG=INT<3*(RND(X)>) 

570 IFGO0THEN590 

580 LETG=3 

590 LETH=INT(3*(RND(X)>) 

(500 IFHO0THENA20 

410 LETH=3 

420 LETI=INT(3*(RND(X))) 

630 IFIO0THEN650 

440 LETI=2 

650 LETJ=INT(3*(RND(X>>> 

440 IFJO0THEN480 

670 LETJ=3 

680 LETK=INT(3*(RND(X>)> 

490 IFKO0THEN710 

700 LETK=2 

710 LETL=INT(3*(RND(X)!) 

720 IFLO0THEN740 

730 LETL=3 

740 LETH=INT(3*(RND(X>)> 

750 IFMO0THEN770 

740 LETH=3 

770 LETN=INT(3*(RND(X))> 

7B0 IFNO0THEN800 

790 LET N=1 

800 LET 0=1NT <3»<RND(X>)> 

810 IF <>0 THEN 830 

820 LET 0=3 

830 PRINT "UANT TO HAKE A UAGER?" 

840 INPUT Z 

850 IF Z=0 THEN 920 

840 PRINT "HOU MUCH?" 

870 INPUT Z1 



874 IF AKZ1 THEN 1522 

880 LET U=1 

890 LET X=1 

900 LET Y=1 

910 PRINT 

920 PRINT "ITS YOUR HOVE" 

V30 INPUT P,Q,R 

940 IFP>U*1 THEN1030 

950 IFP=U+1THEN1000 

740 IFQ>X*1 THEN1030 

970 IF 0=(X+1> THEN 1010 

980 IF R XYtl) THEN 1030 

990 GOTO 1050 

1000 IF 0>= X+1 THEN 1030 

1010 IF R>=Y+1 THEN 1030 

1020 OOTO 1050 

1030 PRINT "ILLEGAL HOVE", "YOU LOSE" 

1040 GOTO 1440 

1050 LET U=P 

1040 LET X=Q 

1070 LET Y=R 

1080 IF P=3 THEN 1100 

1090 GOTO 1130 

1100 IF 0=3 THEN 1120 

1110 GOTO 1130 

1120 IF R=3 THEN 1530 

1130 IF P=A THEN 1150 

1140 GOTO 1180 

1150 IF Q=B THEN 1170 

1140 GOTO 1180 

1170 IF R=C THEN1400 

1180 IF P=D THEN 1200 

1190 GOTO 1230 

1200 IF Q=E THEN 1220 

1210 GOTO 1230 

1220 IF R=F THEN 1400 

1230 IF P=G THEN1250 

1240 GOTO 1280 

1250 IF 0=H THEN1270 

1240 GOTO 1280 

1270 IF R=ITHEN 1400 

1280 IF P=J THEN 1300 

1290 GOTO 1330 

1300 IF 0=K THEN1320 

1310 GOTO 1330 

1320 IF R=L THEN 1440 

1330 IF P=M THEN 1350 

1340 GOTO 1380 

1350 IF 0=N THEN 1370 

1340 GOTO 13B0 

1370 IF R=0 THEN1400 

1380 PRINT "NEXT MOVE" 

1390 GOTO 930 

1400 PRINT"**»***BANG******" 

1410 PRINT "YOU LOSE" 

1420 PRINT 

1430 PRINT 

1440 IF Z=0 THEN 1580 

1450 PRINT 

1440 LET Z2=A1-Z1 

1470 IF Z2>0 THEN 1500 

14B0 PRINT "YOU BUST" 

1490 OOTO 1410 

1500 PRINT " YOU NOU HAVE"; Z2; "DOLLARS" 

1510 LET A1=Z2 

1520 GOTO 1580 

1522 PRINT"TRIED TO FOOL HE; BET AGAIN"; 

1525 GOTO 870 

1530 PRINT"CONGRATULATIONS" 

1540 IF Z=0 THEN 1580 

1550 LET Z2=A1+Z1 

1540 PRINT "YOU NOU HAVE"; Z2;"D0LLARS" 

1570 LET A1=Z2 

1580 PRINT"DO YOU UANT TO TRY AGAIN?" 

1590 INPUT S 

1400 IF S=1 THEN 380 

1410 PRINT "TOUGH LUCK" 

1420 PRINT 

1430 PRINT " GOODBYE" 

1640 END 
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Depth Charge 



In this program you are captain of the 
destroyer USS Computer. An enemy 
submarine has been causing trouble 
and your mission is to destroy it. You 
may select the size of the "cube" of 
water you wish to search in. The 
computer then determines how many 
depth charges you get to destroy the 
submarine. 

Each depth charge is exploded by 
you specifying a trio of numbers; the 
first two are the surface coordinates 
(X,Y), the third is the depth. After each 
depth charge, your sonar observer will 
tell you where the explosion was 
relative to the submarine. 

Dana Noftle wrote this program 
while a student at Acton High School, 
Acton, Massachusetts. 



DEPTH CHARGE GAME 

DIMENSION OF SEARCH AREA? 10 

YOU ARE THE CAPTAIN OF THE DESTROYER USS C0HPUTER 
AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR 
MISSION IS TO DESTROY IT. YOU HAVE 4 SHOTS. 
SPECIFY DEPTH CHARGE EXPLOSION POINT UITH A 
TRIO OF NUMBERS ■•- THE FIRST TUO ARE THE 
SURFACE COORDINATES; THE THIRD IS THE DEPTH. 

GOOD LUCK ! 



TRIAL « 1 ? 5,5,5 

SONAR REPORTS SHOT UAS NORTH AND TOO HIGH. 



TRIAL It 2 ? 5,2,7 

SONAR REPORTS SHOT UAS SOUTH AND TOO HIGH. 



DEPTH CHARGE GAME 



TRIAL » 3 t 5,3,9 

SONAR REPORTS SHOT UAS SOUTH AND TOO LOU. 



DEPTH CHARGE 

CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



TRIAL * 4 ? 5,4,8 

DOOM! ! YOU FOUND IT IN 4 TRIES! 



DIMENSION OF SEARCH AREA? 50 

YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER 
AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR 
MISSION IS TO DESTROY IT. YOU HAVE 6 SHOTS. 
SPECIFY DEPTH CHARGE EXPLOSION POINT UITH A 
TRIO OF NUMBERS - THE FIRST TUO ARE THE 
SURFACE COORDINATES; THE THIRD IS THE DEPTH. 

GOOD LUCK ! 



TRIAL » 1 ? 25,25,25 

SONAR REPORTS SHOT UAS SOUTHEAST AND TOO LOU. 



TRIAL N 2 1 12,35,12 

SONAR REPORTS SHOT UAS SOUTHUEST AND TOO LOU. 



TRIAL It 3 ? 18,43,5 

SONAR REPORTS SHOT UAS NORTHEAST AND TOO HIGH. 



TRIAL II 4 ? 15,39,8 

SONAR REPORTS SHOT UAS EAST AND TOO LOU. 



TRIAL II 5 ? 14, 39, A 

BOOM! ! YOU FOUND IT IN 5 TRIES! 



ANOTHER GAME (Y OR N>? N 

OK. HOPE YOU ENJOYED YOURSELF. 



2 PRINT TAB(30>;"DEPTH CHARGE" 

4 PRINT TAB(15);"CREATIVE COHPUTING MORRISTOUN, NEU JERSEY" 

4 PRINT: PRINT: PRINT 

10 PRINT "DEPTH CHARGE GAME": PRINT 

20 INPUT "DIMENSION OF SEARCH AREA";G: PRINT 

30 N=INT(L0G(G)/L00(2))tl 

40 PRINT "YOU ARE THE CAPTAIN OF THE DESTROYER USS COHPUTER" 

50 PRINT "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR" 

60 PRINT "MISSION IS TO DESTROY IT. YOU HAVE";N;"SHOTS." 

70 PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT UITH A" 

80 PRINT "TRIO OF NUMBERS — THE FIRST TUO ARE THE" 

90 PRINT "SURFACE COORDINATES; THE THIRD IS THE DEPTH." 

100 PRINT : PRINT "GOOD LUCK !": PRINT 

110 A=INT(G»RND(D) : B = INT(G*RND(1 ) ) : C=INT (G+RND ( 1 ) ) 

120 FOR D=1 TO N : PRINT : PRINT "TRIAL H";D; : INPUT X,Y,Z 

130 IF ABS(X-A)tABS(Y-B)+ABS(Z-C)=0 THEN 300 

140 GOSUB 500 : PRINT : NEXT D 

200 PRINT : PRINT "YOU HAVE BEEN TORPEDOED! ABANDON SHIP!" 

210 PRINT "THE SUBMARINE UAS AT";A;",";B;",";C : GOTO 40O 

300 PRINT : PRINT "BOOM! ! YOU FOUNB IT IN";D;"TRIES! " 

400 PRINT : PRINT: INPUT "ANOTHER GAME (Y OR N)";A* 

410 IF A»="Y" THEN 100 

420 PRINT "OK. HOPE YOU ENJOYED YOURSELF." : GOT» 400 

500 PRINT "SONAR REPORTS SHOT UAS "; 

510 IF Y>B THEN PRINT "NORTH"; 

520 IF Y<B THEN PRINT "SOUTH"; 

530 IF X>A THEN PRINT "EAST"; 

540 IF X<A THEN PRINT "UEST"; 

550 IF YOB OR XOA THEN PRINT " AND"; 

540 IF Z>C THEN PRINT " TOO LOU." 

570 IF Z<C THEN PRINT " TOO HIGH." 

580 IF Z=C THEN PRINT " DEPTH OK." 

590 RETURN 

400 END 
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Diamond 




csbA*- 



This program fills an 8V2XII piece of 
paper with diamonds (plotted on a 
hard-copy terminal, of course). The 
program asks for an odd number to be 
input in the range 5 to 31. The 
diamonds printed will be this number 
of characters high and wide. The 
number of diamonds across the page 
will vary from 12 for 5-character wide 
diamonds to 1 for a diamond 31- 
characters wide. You can change the 
content of the pattern if you wish in 
Statement 6. 

The program was written by David 
Ahl of Creative Computing. 



1 PRINT TABIJ3) ["DIAMOND" 

2 PRINT TAB< 15) ["CREATIVE COHPUTINO HORRISMgN, NEU JERSEY" 

3 PRINTiPRINT:PRINT 

4 PRINT "FOR A PRETTY DIAMOND PATTERN," 

5 INPUT "TYPE IN AN ODD NUHBER BETWEEN 5 AND 2 1 " ;R : PRINT 

6 Q=INT(60/R):A»="CC" 
8 FOR L»1 TO Q 

10 X»!:Y=RiZ=2 

20 FOR N"X 10 Y STEP Z 

25 PRINT TAB((R-N)/2); 

28 FOR M-l TO Q 

2? C-1 

30 FOR A=1 TO N 

32 IF OLEN(A»> IHEN PRINT "!";:G0T0 50 

34 PRINT HID»(A»,C,1)j 

36 C=Ct1 

50 NEXT A 

53 IF H=Q THEN 60 

55 PRINT TAB<R«H+(R-N>/2>[ 

56 NEXT M 
60 PRINT 
70 NEXT N 

83 IF X<>1 THEN 95 
85 X*R-2:Y=!:Z=-2 
90 00TD 20 
95 NEXT L 
9? END 



DIAMOND 
CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY 



FOR A PRETTY DIAMOND PATTERN, 

TYPE IN AN ODD NUHBER BETUEEN 5 AND 217 15 



c 


C 






C 


C 


CCI 


CC! 


CC! 


CC! 


CC!!! 


CC! 


I 


CCM! 


CCM! 


CC! 


III 


CCI! 


1! 


CC!!!!! 


ccum 


ecu 


III! 


ccm 


! 


i 


CCM!!!!! 


CC' HUM 


CCI!! 


III! 


I CCIII! 


1 


I! 


CCM! mm 


CCI! ! 1 II !M 


CCIII! 


mm CCIIIII 


1 


Ill 


CCIMMMMM 


CCM! I !! ! ! II I 


ccimii 


!!!! 


nicciinii 


I 


! 1 ! ICCI II! ! Ml 1 !!! 


CC I ! Ml I ! ! ! 1! I ! 


CC!!!! 


! ! ! I 


II CC!!!!! 


) 


!!! 


CCMIM! MM! 


CCM!!!!!!!!! 


CC!!! 


Mil 


! CC I ! ! I 


1 


!! 


CCMMMM! 


CCM I ! I! ! ! ! 


CCI! 


!!!l 


ccm 


1 


! 


CCM! MM 


CC! !! I 1 1 ! 


CC! 


! ! ! 


CCM 


I 




CCMM! 


CCHili 


CC 




CC! 


I 


CCM! 


CCM! 


CC! 


CC 




CC! 


CC! 


C 


C 


C 


C 


C 


c 


C 


C 


CC! 


CC! 


CC! 


CC! 


CC!!! 


CCM! 


ccm 


CCMI 


CC!!!!! 


CCMM! 


CCMIM 


CCMIM 


CC ! I 1 ! ! 1 1 


ccmim 


ccmim 


CC! ! Ml ! ! 


CC!!!!!!!! 


! CCMM! Ml! 


cemmm 


CCM ! ! I M ! I 


CCI 1 1 1 1 1 1 1 i 


1! CCUM!!!!!!! 


CC Ml ! 1 1 III 1 ! 


ccmm mm I 


cci in mm 


! ! !CC! I M M ! 1 1 1 ! ! 


CC II ! ! I ! Ml ! ! 1 


ccmmmmi 


CC ! 1 1 ! 1 II! 1 ! 1 CC 1 1 III II! 1 ! I 


CCM!!!!!!!!! 


ccimmim 


ccimim 


! CCIIIMMM 


CCMMMM! 


CCMM!!!!! 


ccmim 


ccmim 


CC ! 1 ! ! II! 


CC!!!!!!! 


ccum 


CCM!!! 


CCM ! I I 


CCMM 1 


ccm 


ccm 


CCM! 


CCM! 


CC! 


CC! 


CC! 


CC! 


c 


c 


C 


C 


c 


c 


C 


C 


CC! 


CC! 


CC! 


CC! 


ccm 


CCM! 


CCM! 


CCII! 


CC!!!!! 


CCMM! 


CCMIM 


CCMM! 


CCII!!!! I 


CCMIM 


! 


CCMMM! 


CC! ! ! I II I 


CCI!!!!!!! 


I CCMIM! 

M ccmim 


I 1 
!!! 


CCMMM Ml 
CCIMMMMM 


CC! ! I! I! ! 1 1 


CC!!!!!!!!! 


CC Ml III ! Ml I 


CCI HIIIM" 


mCCMIMMI 


M! 


CCM! MM!!!!! 


CCM!!!!!!!!!!! 


ccmnmi 


" CC! I! ! I! ! 


!!! 


CC! I M ! 1 ! ! I! ! 


CC! 1 1 ! I I ! ! Ml 


CC!!!!!!!! 


1 CCMIM! 


1! 


CCMIIMMI 


CCIMMIM! 


ccmim 


CCM!!! 


! 


CCIII! Ml 


CCMMM! 


CCI! Ill 


CCMM 




ccum 


CCi hi I 


CCIII 


ccm 


~ CCMI 


CCM! 


CC! 


CCI 


CC! 


CC! 


c 


C 


C 


C 


c 


C 


C 


C 


CCI 


CC! 


CC! 


CC! 


CC 


!! 


CCM! 


CC! !! 


CCM! 


CC 




CC' ' ' 1 1 


CCMM! 

CCMMM! 

CCMMMM! 


CC !! ! I ! 

CCIII! I I! 

CCMMM II! 


CC! ! 


MM 


CCi 1 1 i 1 1 1 


ccm 


! ! !! 


! CCMMMM! 


CC! ! ! ! 




! ! CC! !!!!!! I I i 1 


CC!!!!!!!!!!! 
CC! i M i 1 1 I M i i 

CCMMM MM! 

CCMM! MM 

CCM Mill 


CC! I ! !!!!!!! ! 

CC! !!!!!!!!!!! ! 

CC I ! 1 1 1! ! ! ! ! I 

CCMIM! Ill 

CC! ! ! I ! ! ! 


CC! ! ! ! ! 




! ! ICC! ! m | ii i i ii i 


CC! ! 1 1 




ii CCM ! M 1 1 I i 1 I 


CC! ! ! 




I CCi 1 1 1 1 1 1 I 1 


CC!! 


III! 


CCM!!!!! 


CC! 


m 


CCMIM 


CCMM! 


CCMM! 


CC 


! 1 


CCMI 


CCM! 


CCM! 


CC! 


CC! 


CC! 


CC! 


( 




C 






C 


C 
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Dice 



Not exactly a game, this program 
simulates rolling a pair of dice a large 
number of times and prints out the 
frequency distribution. You simply 
input the number of rolls. It is in- 
teresting to see how many rolls are 
necessary to approach the theoretical 
distribution: 



2 1/36 

3 2/36 

4 3/36 
etc. 



2.7777 . . .% 
5.5555 . . .% 
8.3333 . . .% 



Daniel Freidus wrote this program 
while in the seventh grade at Harrison 
Jr-Sr High School, Harrison, New York. 




DICE 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



HORRISTOUN, NEU JERSEY" 



2 PRINT TAB(34);"DICE" 

4 PRINT TAB (15); "CREATIVE COMPUTINO 

6 PRINT:PRINTiPRINT 

10 DIH F(12) 

20 REN DANNY FREIDUS 

30 PRINT "THIS PROGRAM SIMULATES THE ROLLINB OF A" 

40 PRINT "PAIR OF DICE." 

30 PRINT "YOU ENTER THE NUHBER OF TIHES YOU UANT THE COHPUTER TO" 

60 PRINT "'ROLL' THE DICE. MATCH OUT, VERY LAR0E NUMBERS TAKE" 

70 PRINT "A L0NB TIME. IN PARTICULAR, NUMBERS OVER 5000." 

80 FOR 0»1 TO 12 

90 F(Q)=0 

100 NEXT Q 

110 PRINTlPRINT "HDU MANY ROLLS"; 

120 INPUT X 

130 FOR S«1 TO X 

140 A=INT(6»RHD(1)+1) 

150 B=INT(4»RND<1)+1) 

140 R=A+B 

170 F(R)-F(R)-H 

180 NEXT S 

185 PRINT 

190 PRINT "TOTAL SPOTS", "NUMBER OF TIMES" 

200 FOR V«2 TO 12 

210 PRINT V,F(V) 

220 NEXT V 

222 PRINT:PRINT "TRY ABAIN"; 

223 INPUT Z» 

224 IF Z»=*YES" THEN 80 
240 END 



THIS PR00RAM SIMULATES THE ROLLING OF A 

PAIR OF DICE. 

YOU ENTER THE NUHBER OF TIMES YOU UANT THE COMPUTER TO 

'ROLL' THE DICE. UATCH OUT, VERY LAROE NUMBERS TAKE 

A LONG TIHE. IN PARTICULAR, NUMBERS OVER 5000. 



HQU 


MANY 


ROLLS? 10000 


TOTAL SPOTS 


NUMBER OF TIHES 


2 






312 


3 






543 


4 






820 


5 






1148 


4 






1393 


7 






1480 


8 






1330 


9 






1125 


to 






841 


11 






342 


12 






244 


TRY 


AGAIN? YES 


HOU 


MANY 


ROLLS? 100 


TOTAL SPOTS 


NUMBER OF TIHES 


2 






1 


3 






4 


4 






9 


5 






9 


4 






16 


7 






22 


8 






16 


9 






9 


10 

i 1 






11 

1 


1 1 
12 






1 
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Digits 



The player writes down a set of 30 
numbers (0, 1 , or 2) at random prior to 
playing the game. The computer 
program, using pattern recognition 
techniques, attempts to guess the next 
number in your list. 

The computer asks for 1 numbers at 
a time. It always guesses first and then 
examines the next number to see if it 
guessed correctly. By pure luck (or 
chance or probability), the computer 
ought to be right "lOtimes. It is uncanny 
how much better it generally does than 
that! 

This program originated at Dart- 
mouth; original author unknown 



DIGITS 

CREATIVE COHPUTING MORRISTQUN, HEU JERSEY 



THIS IS A SAKE OF GUESSING. 
FOR INSTRUCTIONS, TYPE >V , 



ELSE TYPE 'O'T 1 



PLEASE TAKE A PIECE OF PAPER AND URITE DOUN 

THE DIBITS "0', 'I', OR '2' THIRTY TINES AT RANDOM. 

ARRANGE THEM IN THREE LINES OF TEN DIGITS. 

I UILL ASK FOR THEH 10 AT A TIME. 

I WILL ALUAYS GUESS THEM FIRST, AND THEN LOOK AT YOUR 

NEXT NUMBER TO SEE IF I UAS RIGHT. BY PURE LUCK 

I OUGHT TO BE RIGHT 10 TIMES. BUT I HOPE TO DO BETTER 

THAN THAT *»*♦* 



TEN NUMBERS, PLEASE? 1,0,2,1,1,0,1,1,2,2 

MY GUESS YOUR NO. RESULT NO. RIGHT 






1 


URONO 











RIGHT 


1 


1 


2 


URONG 


1 





1 


URONG 


1 


1 


1 


RIGHT 


2 


1 





URONG 


2 





1 


URONG 


2 


1 


1 


RIGHT 


3 





2 


URONG 


3 





2 


URONG 


3 



TEN NUMBERS, PLEASE? 2,0,2,0,1,1,2,0,0,0 

MY GUESS YOUR NO. RESULT NO. RIGHT 



2 


2 


RIGHT 


4 


2 





URONG 


4 


2 


2 


RIGHT 


5 








RIGHT 


A 


1 


1 


RIGHT 


7 


1 


t 


RIGHT 


8 


2 


2 


RIGHT 


9 


2 





URONG 


9 


2 





URONG 


9 


2 





URONG 


9 



TEN NUMBERS, PLEASE? 0,1,0,2,0,0,0,2,1,1 
MY GUESS YOUR NO. 



2 

2 I 

2 

2 2 





2 
1 
1 



I GUESSED MORE THAN 1/3 OF YOUR NUMBERS. 
I UIN. 

DO YOU WANT TO TRY AGAIN (1 FOR YES, FOR NO)? 1 

TEN NUMBERS, PLEASE? 0,0,0,0,0,0,1,1,1,1 



RESULT 


NO. RIGHT 


URONO 


9 


URONG 


9 


URONG 


9 


RIGHT 


10 


RIGHT 


11 


URONG 


11 


URONG 


11 


URONG 


11 


RIGHT 


12 


RIGHT 


13 



MY GUESS 


YOUR 


NO. 


RESULT 


NO. 


RIGHT 










RIGHT 






2 
1 








URONG 
URONG 






2 







URONG 






2 







URONG 






2 







URONG 









1 




URONG 






2 


1 




URONG 









1 




URONG 






2 


1 




URONG 






TEN NUMBERS, 


PLEASE? 2,2,2 


1,1,1,1,1,1, 


1 




MY GUESS 


YOUR 


NO. 


RESULT 


NO. 


RIGHT 



1 
1 


2 
2 
2 




URONG 
URONG 
URONG 


1 
1 
1 




2 
1 






URONG 
RIGHT 


1 
2 




2 






URONG 


2 











URONG 


2 




2 






URONG 


2 




2 
1 






URONG 
RIGHT 


2 
3 




TEN NUMBERS, 


PLEASE? 0,2,0 


2,1,0,1,0,1, 


1 




MY GUESS 


YOUR 


NO. 


RESULT 


NO. 


RIOHT 


2 







URONG 


3 







2 




URONG 


3 




2 







URONG 


3 




2 


2 




RIGHT 


4 




2 


1 




URONG 


4 




1 







URONG 


4 







1 




URONG 


4 




1 







URONG 


4 





1 


1 
1 




URONG 
RIGHT 


4 

5 





I GUESSED LESS THAN 1/3 OF YOUR NUMBERS. 
YOU BEAT ME. CONGRATULATIONS ***** 

DO YOU UANT TO TRY AGAIN (1 FOR YES, FOR NO)? 

THANKS FOR THE GAHE. 
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NORRISTOUN, NEU JERSEY" 



ELSE TYPE '0' 



10 PRINT TAB(33);"DI6ITS" 
20 PRINT TABUS); "CREATIVE COHPUTINQ 
30 PRINT:PRINT:PRINT 
210 PRINT"THIS IS A 6AHE OF GUESSING." 
220 PRINT "FOR INSTRUCTIONS, TYPE 'V , 
230 INPUT E 
240 IF E'O THEN 360 
250 PRINT 

240 PRINT "PLEASE TAKE A PIECE OF PAPER AND URITE DOUN" 
270 PRINT "THE DIBITS '0', 'V , OR '2' THIRTY TIHES AT RANDOM." 
280 PRINT "ARRAN6E THEH IN THREE LINES OF TEN DIGITS." 
290 PRINT "I UILL ASK FOR THEH 10 AT A TIHE." 

300 PRINT "I UILL ALUAYS 6UESS THEH FIRST, AND THEN LOOK AT YOUR" 
310 PRINT "NEXT NUMBER TO SEE IF I UAS RIGHT. BY PURE LUCK" 
320 PRINT "I OUGHT TO BE RIGHT 10 TIHES. BUT I HOPE TO DO BETTER" 
330 PRINT "THAN THAT »♦♦**" 
340 PRINT: PRINT 
360 READ A,B,C 
370 DATA 0,1,3 

380 DIH H(26,2>,K(2,2),L<8,2> 

400 FOR 1=0 TO 26: FOR J=0 TO 2: H(I,J>=1: NEXT J: NEXT I 
410 FOR 1=0 TO 2i FOR J=0 TO 2: K(I,J>-9: NEXT Js NEXT I 
420 FOR 1=0 TO 8: FOR J=0 TO 2l L(I,J)»3: NEXT Ji NEXT I 
450 L(0,0)=2: L(4,1)«2: L(8,2)=2 
480 Z=26| Z1°8: Z2=2 
510 X=0 

320 FOR T=1 TO 3 
530 PRINT 

540 PRINT "TEN NUHBERS, PLEASE"; 

350 INPUT N<1>,N(2>,N(3),N<4>,N(5>,N<6>,N<7>,N<8>,N<9>,N(10) 
560 FOR 1*1 TO 10 
370 U-NU1-1 

580 IF U=S6N(U) THEN 620 

390 PRINT "ONLY USE THE DIGITS '0', 'V , OR '2'." 
400 PRINT "LET'S TRY AGAIN.": GOTO 530 
620 NEXT I 

630 PRINT: PRINT "HY GUESS", "YOUR NO. "."RESULT", "NO. RIGHT":PRINT 
640 FOR U=l TO 10 
670 N=N(U): S*0 
690 FOR J=0 TO 2 

700 S1"A*K<Z2,J)tB»L<Z1,J)*C»H<Z,J> 
710 IF S>S1 THEN 760 
720 IF S<S1 THEN 740 
730 IF RNDOX.5 THEN 760 
740 S=S1: G=J 
760 NEXT J 
770 PRINT G,N(U), 
780 IF G«N(U) THEN 810 
790 PRINT "URONG",X 
800 GOTO 880 
810 X=X+1 

820 PRINT "RIGHT", X 
830 H(Z,N>=H(Z,NH1 
840 L(ZI,N)=L(Z1,N)+1 
850 K(Z2,H)«K(Z2,N)+1 
860 Z=Z-INT(Z/9>*9 
870 Z=3»Z*N(U> 
B80 Z1*Z-lNT<Z/9>»9 
890 Z2=N(U) 
900 NEXT U 
910 NEXT T 
920 PRINT 

930 IF X>10 THEN 980 
940 IF X<10 THEN 1010 

950 PRINT "I GUESSED EXACTLY 1/3 ON YOUR NUHBERS 
IT IS A TIE GAHE." 



1030 
"I GUESSED MORE THAN 1/3 OF YOUR NUHBERS." 

FOR Q«1 TO 10: PRINT CHR$(7)J: NEXT Q 



960 PRINT 

970 GOTO 

980 PRINT 

990 PRINT "I UIN." 

1000 GOTO 1030 

1010 PRINT "I 6UESSED LESS THAN 1/3 OF YOUR NUHBERS." 

1020 PRINT "YOU BEAT HE. CONGRATULATIONS *♦»**" 

1030 PRINT 

1040 PRINT "DO YOU UANT TO TRY AGAIN (1 FOR YES, FOR NO)"; 

1060 INPUT X 

1070 IF X«1 THEN 400 

1080 PRINT: PRINT "THANKS FOR THE GAHE." 

1090 END 
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Even Wins 



This is a game between you and the 
computer. To play, an odd number of 
objects (marbles, chips, matches) are 
placed in a row. You taketurns with the 
computer picking up between one and 
four objects each turn. The game ends 
when there are no objects left, and the 
winner is the one with an even number 
of objects picked up. 

Two versions of this game are 
included. While to the player they 
appear similar, the programming ap- 
proach is quite different. EVEN WINS, 
the first version, is deterministic — i.e., 
the computer plays by fixed, good rules 
and is impossible to beat if you don't 
know how to play the game. It always 
starts with 27 objects, although you 
may change this in Lines 250, and 1 060. 

The second version, GAME OF 
EVEN WINS, is much more interesting 
because the computer starts out only 
knowing the rules of the game. Using 
simple techniques of artificial in- 
telligence (cybernetics), the computer 
gradually learns to play from its mis- 
takes until it plays a very good game. 
After 20 games, the computer is a 
challenge to beat. Variation in the 
human's style of play seems to make 
the computer learn morequickly, If you 
plot the learning curve of this program, 
it closely resembles classical human 
learning curves from psychological 
experiments. 

Eric Peters at DEC wrote the GAME 
OF EVEN WINS. The original author of 
EVEN WINS is unknown. 



EVEN UINS 
CREATIVE COHPUTING HQRRISTOUN, NEU JERSEY 



THIS IS A TUO PERSON OAHE CALLED 'EVEN UINS.' 
TO PLAY THE GAHE, THE PLAYERS NEED 27 HARBLES OR 
OTHER OBJECTS ON A TABLE. 



TYPE A 1 IF YOU UANT TO 00 
A IF YOU UANT HE TO BO FIRST. 
? 

TOTAL' 27 

I PICK UP 2 MARBLES. • 
TOTAL" 23 


FIRST, AND TYPE 


AND UHAT IS YOUR NEXT HOVE, 
? 2 


HY TOTAL 


IS 2 


TOTAL" 23 






YOUR TOTAL IS 2 
I PICK UP 4 HARBLES. 
TOTAL' 19 






AND UHAT IS YOUR NEXT HOVE, 
? 4 


HY TOTAL 


IS 6 


TOTAL" 15 






YOUR TOTAL IS 6 
I PICK UP 2 HARBLES. 
TOTAL' 13 






AND UHAT IS YOUR NEXT HOVE, 
7 1 


HY TOTAL 


IS 8 


TOTAL" 12 






YOUR TOTAL IS 7 
I PICK UP 1 HARBLES. 
TOTAL" 11 






AND UHAT IS YOUR NEXT HOVE, 
T 3 


HY TOTAL 


IS 9 


T0TAL= 8 






YOUR TOTAL IS 10 
I PICK UP 1 HARBLES. 
TOTAL" 7 






AND UHAT IS YOUR NEXT HOVE, 
7 1 


HY TOTAL 


IS 10 


TOTAL* 6 






YOUR TOTAL IS 11 
I PICK UP 1 HARBLES. 
TOTAL- 5 






AND UHAT IS YOUR NEXT HOVE, 
T 1 


HY TOTAL 


IS 11 


TOTAL* 4 






YOUR TOTAL IS 12 
I PICK UP 3 HARBLES. 
TOTAL" 1 







THE 2 PLAYERS ALTERNATE TURNS, UITH EACH PLAYER 
REHOVINS FROH 1 TO 4 HARBLES ON EACH HOVE. THE GAHE 
ENDS UHEN THERE ARE NO HARBLES LEFT, AND THE UINNER 
IS THE ONE UITH AN EVEN NUHBER OF HARBLES. 



THE ONLY RULES ARE THAT (1) YOU HUST ALTERNATE TURNS, 
(2) YOU HUST TAKE BETUEEN 1 AND 4 HARBLES EACH TURN, 
AND (J) YOU CANNOT SKIP A TURN. 



1 1 



AND UHAT IS YOUR NEXT HOVE, HY TOTAL IS 14 



THAT IS ALL OF THE HARBLES. 

HY TOTAL IS 14 YOUR TOTAL IS 13 



I UON. DO YOU UANT TO PLAY 
AOAIH? TYPE 1 FOR YES AND FOR NO. 
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1 PRINT TAB(31);"EVEN UINS" 

2 PRINT TAB<15);"CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

3 PRINT:PRINT:PRINT 

4 Y1=0 
10 H1=0 

20 DIM H(20),Y(20) 

30 PRINT " THIS IS A TUO PERSON GAHE CALLED 'EVEN UINS.'" 

40 PRINT "TO PLAT THE GAHE, THE PLAYERS NEED 27 MARBLES OR" 

50 PRINT "OTHER OBJECTS ON A TABLE." 

60 PRINT 

70 PRINT 

80 PRINT " THE 2 PLAYERS ALTERNATE TURNS, UITH EACH PLAYER" 

90 PRINT "REMOVING FROM 1 TO 4 MARBLES ON EACH MOVE. THE GAME" 

10O PRINT "ENDS UHEN THERE ARE NO MARBLES LEFT, AND THE UINNER" 

110 PRINT "IS THE ONE UITH AN EVEN NUNBER OF MARBLES." 

120 PRINT 

130 PRINT 

140 PRINT " THE ONLY RULES ARE THAT (1) YOU MUST ALTERNATE TURNS," 

ISO PRINT "(2) YOU HUST TAKE BETUEEN 1 AND 4 MARBLES EACH TURN," 

HO PRINT "AND (3) YOU CANNOT SKIP A TURN." 

170 PRINT 

180 PRINT 

190 PRINT 

200 PRINT " TYPE A 1 IF YOU UANT TO GO FIRST, AND TYPE" 

210 PRINT "A IF YOU UANT ME TO GO FIRST." 

220 INPUT C 

230 IF C=0 THEN 250 

240 GOTO 1060 

250 T=27 

260 M=2 

270 PRINT "TOTAL=";T 

280 Hl=Mt*H 

290 T=T-M 

300 PRINT "I PICK UP";M;"HARBLES." 

310 IF T=0 THEN 880 

320 PRINT "TOTAL=";T 

330 PRINT 

340 PRINT " AND UHAT IS YOUR NEXT MOVE, MY TOTAL IS";M1 

350 INPUT Y 

360 PRINT 

370 IF Y<l THEN 1160 

3B0 IF Y>4 THEN 1160 

390 IF Y<=T THEN 430 

400 PRINT " YOU HAVE TRIED TO TAKE MORE MARBLES THAN THERE ARE" 

410 PRINT "LEFT. TRY AGAIN." 

420 GOTO 350 

430 Y1=Y1*Y 

440 T=T-Y 

450 IF T=0 THEN 880 

460 PRINT "TOTAL=";T 

470 PRINT 

4B0 PRINT " YOUR TOTAL IS";Y1 

490 IF T<.5 THEN 880 

300 R=T-6*INT(T/6) 

510 IF INT(Y1/2)=Y1/2 THEN 700 

520 IF T<4.2 THEN 580 

530 IF R>3.4 THEN 620 

540 M=Rt1 

550 H1=H1+M 

560 T=T-M 

570 GOTO 300 

580 M=T 

590 T=T-M 



600 GOTO 830 

610 REM 250 IS UHERE I UIN. 

620 IF R<4.7 THEN 660 

630 IF R>3.5 THEN 660 

640 N=1 

650 GOTO 670 

660 M=4 

670 T=T-M 

680 M1=MUM 

690 GOTO 300 

700 REM I AM READY TO ENCODE THE STRAT FOR UHEN OPP TOT IS EVEN 

710 IF R<1.5 THEN 1020 

720 IF R>5.3 THEN 1020 

730 M=R-1 

740 Mt=MHM 

750 T=T-M 

760 IF T<.2 THEN 790 

770 REM IS B ZERO HERE 

780 GOTO 300 

790 REM IS = ZERO HERE 

BOO PRINT "I PICK UP";Mj"MARBLES." 

810 PRINT 

820 GOTO 880 

830 REM THIS IS UHERE I UIN 

840 PRINT "I PICK UP" JM;"MARBLES." 

850 PRINT 

860 PRINT "TOTAL « 0" 

870 H1=HI+H 

880 PRINT " THAT IS ALL OF THE MARBLES." 

890 PRINT 

900 PRINT " MY TOTAL I3";M1;" YOUR TOTAL IS":Y1 

710 PRINT 

920 IF INT(M1/2)=M1/2 THEN 950 

930 PRINT " YOU UON. DO YOU UANT TO PLAY" 

940 GOTO 960 

950 PRINT " I UON. DO YOU UANT TO PLAY" 

960 PRINT "AGAIN? TYPE 1 FOR YES AND FOR NO." 

970 INPUT A1 

980 IF A1=0 THEN 1030 

990 H1=0 

1000 Y1=0 

1010 GOTO 200 

1020 GOTO 640 

1030 PRINT 

1040 PRINT "OK. SEE YOU LATER." 

1050 GOTO 1230 

1060 T = 27 

1070 PRINT 

1080 PRINT 

1090 PRINT 

1100 PRINT "TOTAL=";r 

1110 PRINT 

1120 PRINT 

1130 PRINT " UHAT IS YOUR FIRST MOVE?" 

1140 INPUT Y 

1150 GOTO 360 

1160 PRINT 

1170 PRINT "THE NUMBER OF MARBLES YOU TAKE MUST BE A POSITIVE" 

1180 PRINT "INTEGER BETUEEN 1 AND 4." 

1190 PRINT 

1200 PRINT " UHAT IS YOUR NEXT MOVE?" 

1210 PRINT 

1220 GOTO 350 

1230 END 
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SAME OF EVEN UINS 
CREATIVE COHPUTINO HORR1STOUN, NEU JERSEY 



DO TOU UANT INSTRUCTIONS (YES OR NO)? YES 

THE BANE IS PLAYED AS FOLLOUS: 

AT THE BEBINNINO OF THE OAHE, A RANOOH NUHBER OF CHIPS ARE 
PLACED ON THE BOARD. THE NUHBER OF CHIPS ALUAYS STARTS 
AS AN ODD NUHBER. ON EACH TURN, A PLAYER HUST TAKE ONE, 
TUO, THREE, OR FOUR CHIPS. THE UINNER IS THE PLAYER UHO 
FINISHES UITH A TOTAL NUHBER OF CHIPS THAT IS EVEN. 
THE COHPUTER STARTS OUT KNOMINO ONLY THE RULES OF THE 
OAHE. IT ORADUALLY LEARNS TO PLAY WELL. IT SHOULD BE 
DIFFICULT TO BEAT THE COHPUTER AFTER TUENTY GAMES IN A ROU. 
TRY ITIMI 

TO QUIT AT ANY TIHE, TYPE A '0' AS YOUR HOVE. 



THERE ARE 21 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 17 
THERE ARE 13 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 9 . 
THERE ARE 7 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 3 . 
THERE ARE 2 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS. 
GAHE OVER ... I UINIM 

THERE ARE 19 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 15 
THERE ARE II CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVING 7 . 
THERE ARE 5 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVING 1 . 
GAHE OVER ... I UINIM 

THERE ARE 9 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVING 5 . 
THERE ARE 3 CHIPS ON THE BOARD. 
COHPUTER TAKES 3 CHIPS. 
BAKE OVER ... YOU UINIM 

THERE ARE 21 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVINB IV 
THERE ARE 17 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 13 
THERE ARE 12 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 8 . 
THERE ARE 5 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 1 . 
GAHE OVER ... I UINHI 

THERE ARE 9 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVINB 7 . 
THERE ARE 3 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVING 1 . 
GAHE OVER ... I UINIM 

THERE ARE 21 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVING 1? 
THERE ARE 18 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 14 
THERE ARE 13 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 9 . 
THERE ARE 8 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVING 4 . 
THERE ARE 5 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVING 1 . 
GAHE OVER ... I UINIM 

THERE ARE 9 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVINB 7 . 
THERE ARE 3 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVINB 1 . 
GAHE OVER ... I UINIM 

THERE ARE 21 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVING 1? 
THERE ARE IS CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVINB 13 
THERE ARE 10 CHIPS ON THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVINB 6 . 
THERE ARE 2 CHIPS ON THE BOARD. 
COHPUTER TAKES 2 CHIPS. 
GAHE OVER ... I UINIM 



YOUR HOVE? 4 



YOUR MOVET 2 



YOUR HOVE? 1 



. YOUR HOVE? 4 
YOUR MOVE? 2 
YOUR HOVE? 1 

YOUR MOVET 2 



. YOUR HOVE? 2 
. YOUR HOVE* I 
YOUR MOVE? 3 
YOUR MOVE? 1 

YOUR MOVE? 4 
YOUR MOVE? 1 

. YOUR MOVE? 1 

. YOUR MOVE? I 

YOUR MOVE? 1 

YOUR MOVE? 1 

YOUR MOVE? 1 

YOUR MOVE? 4 
YOUR MOVE? 1 

. YOUR MOVE? 4 
. YOUR MOVE? 3 
YOUR HOVE? 4 



1 PRINT TAB(28);"GAHE OF EVEN UINS" 

2 PRINT TftB(l5>; "CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY" 

3 PRINT:PRINT:PRINT 

4 INPUT "BO YOU UANT INSTRUCTIONS (YES OR NO)";A$ 

5 IF A»="NO" THEN 20 

6 PRINT: PRINT "THE GAHE IS PLAYED AS FOLLOUS:" 

7 PRINT "AT THE BEGINNING OF THE GAHE, A RANDOM NUHBER OF CHIPS ARE" 

8 PRINT "PLACES ON THE BOARD. THE NUHBER OF CHIPS ALUAYS STARTS" 

9 PRINT "AS AN OBD NUHBER. ON EACH TURN, A PLAYER HUST TAKE ONE," 

10 PRINT "TUO, THREE, OR FOUR CHIPS. THE UINNER IS THE PLAYER UHO" 

11 PRINT "FINISHES UITH A TOTAL NUHBER OF CHIPS THAT IS EVEN." 

12 PRINT "THE COHPUTER STARTS OUT KNOUING ONLY THE RULES OF THE" 

13 PRINT "GAHE. IT BRADUALLY LEARNS TO PLAY UELL. IT SHOULD BE" 

14 PRINT "DIFFICULT TO BEAT THE COHPUTER AFTER TUENTY GAMES IN A ROU. 

15 PRINT "TRY ITIMI": PRINT 

16 PRINT "TO QUIT AT ANY TIME, TYPE A '0' AS YOUR HOVE.": PRINT 
20 DIH R(l,5) 

25 L=0: B=0 

30 FOR 1=0 TO 5 

40 R(1,I)=4 

50 R(0,I)«4 

60 NEXT I 

70 A*0: B=0 

90 P»INT((l3*RND(1)+9)/2)*2+1 

100 IF P=1 THE* 530 

110 PRINT "THERE ARE";P;"CHIPS ON THE BOARD." 

120 E1=E 

130 L1=L 

140 E=(A/2-INT(A/2))*2 

150 L=INT((P/6-INT<P/6>>*6+.5> 

160 IF R(E,L»*P THEN 320 

170 H=R(E,L) 

180 IF H<=0 THEN 370 

190 P=P-M 

200 IF H=1 THEN 510 

210 PRINT "COHPUTER TAKES";H;"CHIPS LEAVING";P;"... YOUR HOVE": 

220 B=BtH 

230 INPUT H 

240 H=INT(H) 

250 IF H<1 THEN 450 

240 IF H>4 THEN 460 

270 IF H>P THEN 460 

280 IF H*P THEN 360 

290 P=P-H 

300 A=A+H 

310 GOTO 100 

320 IF P=1 THEN 550 

330 PRINT "COHPUTER TAKES";P;"CHIPS." 

340 R(E,L)=P 

350 B=B*P 

360 IF B/2=INT(B/2) THEN 420 

370 PRINT "GAHE OVER ... YOU UINIM": PRINT 

390 IF R(E,L)=1 THEN 480 

400 R(E,L)=R(E,L)-1 

410 BOTO 70 

420 PRINT "BAHE OVER ... I UINMI": PRINT 

430 BOTO 70 

450 IF H=0 THEN 570 

440 PRINT HJ"IS AN ILLEGAL HOVE ... YOUR MOVE"; 

470 GOTO 230 

480 IF R(EI,L1)=1 THEN 70 

490 R(E1,LI)=R(E1,L1)-1 

500 GOTO 70 

510 PRINT "COMPUTER TAKES 1 CHIP LEAVING";P;"... YOUR MOVE"; 

520 GOTO 220 

530 PRIHT "THERE IS 1 CHIP ON THE BOARD." 

540 GOTO 120 

550 PRINT "COHPUTER TAKES 1 CHIP." 

540 BOTO 340 

570 END 
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Flip Flop 



The object of this game is to change 
a row of ten X's 

XXXXXXXXXX 
to a row of ten O's: 

0000000000 
by typing in a number corresponding 
to the position of an "X" in the line. On 
some numbers one position will 
change while on other numbers, two 
will change. For example, inputting a 3 
may reverse the X and in position 3, 
but it might possibly reverse some 
other position too! You ought to be able 
to change all 10 in 12 or fewer 
moves. Can you figure out a good win- 
ning strategy? 

To reset the line to all X's (same 
game) , type i (zero). To start a new 
game at any point, type 11. 

The original author of this game was 
Michael Kass of New Hyde Park, New 
York. 

FLIPFLOP 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 

THE OBJECT OF THIS PUZZLE IS 10 CHANCE THIS: 

XXXXXXXXXX 

TO THIS; 

0000000000 

BY TYPING THE NUHBER CORRESPONDING TO THE POSITION OF THE 
LETTER ON SOHE NUHBERS, ONE POSITION MILL CHANGE, ON 
OTHERS, TUO UILL CHANGE. TO RESET LINE TO ALL X'S, TYPE 
(ZERO) AND TO START OVER IN THE HIDDLE OF A GAME, TYPE 
11 (ELEVEN). 

HERE IS THE STARTING LINE OF X'S. 

12345478? 10 
XXXXXXXXXX 



1 2 3 


4 3 


4 7 8 9 10 


X X 


X X 


X X X X 


INPUT 


THE 


NUHBER? 3 


1 2 3 


4 5 


6 7 8 9 10 


X 


X X 


X X X 


INPUT 


THE 


NUHBER? 4 


1 2 3 


4 5 


<S 7 8 9 10 


X 


X 


X X X 


INPUT 


THE 


NUHBER? 5 


1 2 3 


4 5 


6 7 8 9 10 


X 





X X X 


INPUT 


THE 


NUHBER? 9 


1 2 3 


4 5 


6 7 B 9 10 


X 


X 


X X 



INPUT THE NUHBER? 1 

123456789 10 

O000XX00OX 

INPUT THE NUHBER? 5 

1234567BV10 

O0000X0OOX 

INPUT THE NUHBER? 10 

123456 7 89 10 

0000000000 

VERY GOOD. YOU GUESSED IT IN ONLY 8 GUESSES. 

DO YOU UANT TO TRY ANOTHER PUZZLE? NO 



2 PRINT TAB(32);"FLIPFL0P" 

4 PRINT TAB(15);"CREATIVE COHPUTING HORRISTOUN, NEU JERSEY" 

6 PRINT:PRINT:PRINT 

10 REH *** CREATED BY HICHAEL CASS 

15 DIM A»(20) 

20 PRINT "THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:" 

30 PRINT 

40 PRINT ' 

50 PRINT 

60 PRINT ' 

70 PRINT 

80 PRINT ' 

90 PRINT 

100 PRINT 

110 PRINT 



XXXXXXXXXX" 



TO THIS:" 



00O0O0000O" 



"BY TYPING THE NUHBER CORRESPONDING TO THE POSITION OF THE" 
"LETTER ON SOHE NUHBERS, ONE POSITION UILL CHANGE, ON" 

120 PRINT "OTHERS, TUO UILL CHANGE. TO RESET LINE TO ALL X'S, TYPE 0" 

130 PRINT "(ZERO) AND TO START OVER IN THE HIDDLE OF A GAHE, TYPE " 

140 PRINT "11 (ELEVEN)." 

170 PRINT 

180 REH 

190 0=RND(1) 

200 PRINT "HERE IS THE STARTING LINE OF X'S." 

210 PRINT 

220 C=0 

230 PRINT "12 3 4 5 6 7 8 9 10" 

240 PRINT "XXXXXXXXXX" 

250 PRINT 

260 REH 

270 FOR X«1 TO 10 

200 A»(X)»"X" 

290 NEXT X 

300 GOTO 320 

310 PRINT "ILLEGAL ENTRY— TRY AGAIN." 

320 PRINT "INPUT THE NUHBER"; 

330 INPUT N 

340 IF NOINT(N) THEN 310 

350 IF N=11 THEN 180 

360 IF N>11 THEN 310 

370 IF N=0 THEN 230 

380 IF H=N THEN 510 

390 H=N 

400 IF A»(N)="0" THEN 480 

410 A»(N)="0" 

420 R=TAN(0tN/Q-N)-SIN(Q/N)t336*SIN(8*N) 

430 N=R-INT(R) 

440 N=INT(10*N) 

450 IF A«(N)="0" THEN 480 

460 A«(N)="0" 

470 GOTO 610 

480 A»(N)="X" 

490 IF H=N THEN 420 

500 GOTO 610 

510 IF A»(N)="Q" THEN 590 

520 A»(N>="0" 

530 R».592*(1/TAN(Q/N+Q))/SIN(N*2tQ)-C0S(N) 

540 N=R-INT(R) 

350 N»INT(10*N) 

560 IF A»(N)="0" THEN 590 

570 A»(N)-"0" 

580 GOTO 610 

590 A»(N)="X" 

600 IF H=N THEN 530 

610 PRINT "123456789 10" 

620 FOR Z=1 TO 10: PRINT A»(Z);" "J: NEXT Z 

430 C=C+1 

640 PRINT 

650 FOR Z=1 TO 10 

460 IF A»(Z)<>"0" THEN 320 

670 NEXT Z 

480 IF C>12 THEN 710 

490 PRINT "VERY GOOD. YOU GUESSED IT IN 0NLY";C;"GUESSES." 

700 GOTO 720 

710 PRINT "TRY HARDER NEXT TIHE. IT TOOK YOU";C;"GUESSES." 

720 PRINT "DO YOU UANT TO TRY ANOTHER PUZZLE"; 

730 INPUT X» 

740 IF X*="N0" THEN 780 

760 PRINT 

770 GOTO 180 

780 END 
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Football 



Football is probably the most pop- 
ular simulated sports game. I have seen 
some people elect to play com- 
puterized football in preference to 
watching a bowl game on television. 

Two versions of football are 
presented. The first is somewhat more 
"traditional" in that you, the player, are 
playing against the computer. You 
have a choice of seven offensive plays. 
On defense the computer seems to 
play a zone defense, but you have no 
choice of plays. The computer 
program presents the necessary rules 
as you play, and it is also the referee 
and determines penalties when an 
infraction is committed. FTBALL was 
written by John Kemeny at Dartmouth. 

In the second version of football, the 
computer referees a game played 
between two human players. Each 
player gets a list of twenty plays with a 
code value for one. This list should be 
kept confidential from your opponent. 
The codes can be changed in data 
statements 1770 for Team 1 and 1780 
for Team 2. All twenty plays are 
offensive; a defensive play is specified 
by defending against a type of offen- 
sive play. A defense is good for other 
similar types of plays, for example, a 
defense against a flare pass is very 
good against a screen pass but much 
less good against a half-back option. 

This game was originally written by 
Raymond Miseyka of Butler, Penn- 
sylvania. 



FTBALL 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 



THIS IS DARTMOUTH CHAHPIOHSHIP FOOTBALL. 

YOU UUL QUARTERBACK DARTHOUTH. CALL PLAYS AS FOLLOUS: 

1= SIHPLE RUN; 2= TRICKY RUN; 3= SHORT PASS; 

4= LONG PASS; 5= PUNT; 6= QUICK KICK; 7 = PLACE KICK. 

CHOOSE YOUR OPPONENT? RUTOERS 

DARTHOUTH UON THE TOSS 

DO YOU ELECT TO KICK OR RECEIVE? RECEIVE 

54 YARD KICKOFF 

42 YARD RUNBACK 
BALL ON DARTHOUTH 48 YARD LINE 
FIRST DOUN DARTHOUTH*** 



NEXT PLAY? 3 

SHORT PASS. INCOMPLETE. NO GAIN 

BALL ON DARTHOUTH 48 YARD LINE 

DOUN 2 YARDS TO GO: 10 



NEXT PLAY? 4 

LONO PASS. INCOHPLETE. NO GAIN 
RUTGERS OFFSIDES -- PENALTY OF 5 YARDS. 



DO YOU ACCEPT THE PENALTY? YES 
BALL ON RUTGERS 47 YARD LINE 
DOUN 2 YARDS TO GO: 5 



NEXT PLAY? 2 

TRICKY RUN. 3 YARD LOSS 
BALL ON DARTHOUTH 50 YARD LINE 
DOUN 3 YARDS TO GO: 8 



NEXT PLAY? 2 

TRICKY RUN. 10 YARD GAIN 
BALL ON RUTGERS 40 YARD LINE 
FIRST DOUN DARTMOUTH*** 



NEXT PLAY? 4 

LONG PASS. COMPLETE. T0UCHD0UN *** 
KICK IS GOOD 



SCORE: 



7 TO 




O^sfiw- 



DARTMOUTH KICKS OFF 

45 YARD KICKOFF 

YARD RUNBACK 
BALL ON RUTGERS 15 YARB LINE 
FIRST B0UN RUT0ERS*«* 



SHORT PASS. BATTED DOUN. NO GAIN 
BALL ON RUTGERS 15 YARD LINE 
DOUN 2 YARDS TO GO: 10 



LONG PASS. BATTED DOUN. NO GAIN 
BALL ON RUTOERS 15 YARD LINE 
DOUN 3 YARDS TO GO: 10 



LONO PASS. INCOHPLETE. NO GAIN 
BALL ON RUTGERS 15 YARD LINE 
DOUN 4 YARDS TO GO: 10 



PUNT. 34 YARD PUNT 

15 YARD RUN BACK 
BALL ON RUTGERS 34 YARD LINE 
FIRST DOUN DARTMOUTH*** 



64 



NEXT PLAY? 2 

TRICKY RUN. 1 YARD LOSS 
BALL ON RUTGERS 35 YARD LINE 
DOUN 2 YARDS TO GO: 11 



NEXT PLAY? 3 

SHORT PASS. INCOMPLETE. NO GAIN 
BALL ON RUTGERS 35 YARD LINE 
DOUN 3 YARDS TO GO: 11 



NEXT PLAY? 2 

TRICKY RUN. 2 
RUTGERS OFFSIDES 



YARD LOSS 

- PENALTY OF 5 YARDS. 



DO YOU ACCEPT THE PENALTY? YES 
BALL ON RUTGERS 30 YARD LINE 
DOUN 3 YARDS TO 00: 4 



NEXT PLAY? 2 

TRICKY RUN. 13 YARD OAIN 
BALL ON RUTGERS 17 YARD LINE 
FIRST DOUN DARTMOUTH*** 



NEXT PLAY? 4 

LONG PASS. COMPLETE. TOUCHDOWN *** 
KICK IS GOOD 



SCORE: 



14 TO 



DARTMOUTH KICKS OFF 

48 YARD KICKOFF 

YARD RUNBACK 
BALL ON RUTGERS 12 YARD LINE 
FIRST DOUN RUTGERS*** 



SHORT PASS. COMPLETE. 9 YARD OAIN 
BALL ON RUTGERS 21 YARD LINE 
DOUN 2 YARDS TO GO: 1 



SIMPLE RUN. NO GAIN 
RUTGERS OFFSIDES -- PENALTY OF 5 YARDS. 



DO YOU ACCEPT THE PENALTY? YES 
BALL ON RUTGERS 14 YARD LINE 
DOUN 2 YARDS TO GO: 6 



LONG PASS. INTERCEPTED. 
BALL ON RUTGERS 44 YARD LINE 
FIRST DOUN DARTMOUTH*** 



NEXT PLAY? 4 

LONG PASS. INTERCEPTED. 
BALL ON RUTGERS 15 YARD LINE 
FIRST DOUN RUTGERS*** 



SHORT PASS. COMPLETE. 7 YARD GAIN 
BALL ON RUTGERS 22 YARD LINE 
DOUN 2 YARDS TO GO: 3 



SHORT PASS. BATTED DOUN. NO GAIN 
BALL ON RUTGERS 22 YARD LINE 
DOUN 3 YARDS TO GO: 3 



SHORT PASS. BATTED DOUN. NO GAIN 
BALL ON RUTGERS 22 YARD LINE 
DOUN 4 YARDS TO GO: 3 



10 PRINT TAB(33);"FTBALL" 

20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

30 PRINT: PRINT: PRINT 

220 PRINT "THIS IS DARTMOUTH CHAMPIONSHIP FOOTBALL." 

230 PRINT "YOU UILL QUARTERBACK DARTMOUTH. CALL PLAYS AS FOLLOUS:" 

240 PRINT "1= SIMPLE RUN; 2= TRICKY RUN; 3= SHORT PASS;" 

250 PRINT "4= LONG PASS; 5= PUNT; 4= OUICK KICK; 7= PLACE KICK." 

240 PRINT 

270 PRINT "CHOOSE YOUR OPPONENT"; 

2B0 INPUT 0*(1) 

290 0«(0)="DARTMOUTH" 

300 PRINT 

310 LET S(0)=0: LET S(1)=0 

320 REM 

330 DIM L»<20> 

340 FOR 1=1 TO 20: READ L»(I): NEXT I 

350 DATA "KICK","RECIEVE"," YARD \"RUN BACK FOR "/'BALL ON " 

340 DATA "YARD LINE"," SIMPLE RUN"," TRICKY RUN"," SHORT PASS" 

370 DATA " LONG PASS", "PUNT"," QUICK KICK "," PLACE KICK"," LOSS " 

380 DATA " NO GAIN", "GAIN "," TOUCHDOUN "," TOUCHBACK "/'SAFETY***" 

385 DATA "JUNK" 

390 LET P=INT(RND(1)*2) 

400 PRINT 0»(P);" UON THE TOSS" 

410 DEF FNF<X)=1-2*P 

420 DEF FNG(Z)=P*(X1~X>+<1~P>*<X-X1) 

430 IF P=0 THEN 470 

440 PRINT 0S<1>;" ELECTS TO RECIEME" 

450 PRINT 

460 GOTO 580 

470 PRINT "DO YOU ELECT TO KICK OR RECEIVE"; 

480 INPUT A* 

490 PRINT 

500 FOR E=1 TO 2 

510 IF A*=L»(E) THEN 550 

520 NEXT E 

530 PRINT "INCORRECT ANSUER. PLEASE TYPE 'KICK' OR 'RECEIVE'"; 

540 GOTO 480 

550 IF E=2 THEN 580 

560 LET P=1 

580 LET X = 40+U-P)*20 

590 LET Y=INT<200*<RND(1>-.5>"3+55) 

400 PRINT Y;L»<3>;" KICKOFF" 

410 LET X=X-FNF(1)*Y 

420 IF ABS(X-50)>=50 THEN 700 

430 LET Y=INT(50*RND(1)"2)+(1-P)*INT(5O*RND(1)-4) 

440 LET X=XtFNF(1)*Y 

450 IF ADS(X-50)>=50 THEN 455 

451 PRINT Y;L$<3>;" RUNBACK" 

452 GOTO 720 
455 PRINT L»(4); 
460 GOTO 2400 

700 PRINT "TOUCHBACK FOR ";0«<P> 

710 LET X=20*P*40 

720 REM FIRST DOUN 

730 GOSUB 800 

740 LET XI=X 

750 LET D=1 



740 PRINT "FIRST DOUN ";0»<P>;"**»" 

770 PRINT 

780 PRINT 

790 GOTO 860 

800 REM PRINT POSITION 

810 IF X>50 THEN 840 

820 PRINT L$(5>;0J(0>;X;L»<4> 

830 GOTO 850 

840 PRINT l*(5);o»(d;ioo-x;l»(4) 

850 RETURN 

840 REM NEU PLAY 

870 LET T=T+1 

880 IF T=30 THEN 1040 

890 IF T<50 THEN 940 

900 IF RND(1>>.2 THEN 940 

910 PRINT "END OF GAME***" 

920 PRINT "FINAL SCORE: ";0»<0> ;S(0) ;" ";0»(1);S(D 

930 STOP 

940 IF P=1 THEN 1870 

950 PRINT "NEXT PLAY"; 

960 INPUT Z 

970 IF ZOINT(Z) THEN 990 

980 IF ABS(Z-4)<=3 THEN 1010 

990 PRINT "ILLEGAL PLAY NUMBER, RETYPE"; 

1000 GOTO 960 

1010 LET F=0 

1020 PRINT L*(Zt6>;". "; 

1030 LET R=RND(1)*(.98+FNF(1)*.02) 

1040 LET R1=RND(U 

1050 ON Z GOTO 1110,1150,1260,1480,1570,1570,1480 

1060 REM JEAN'S SPECIAL 

1070 IF RND(1)> 1/3 THEN 940 

1080 PRINT "GAME DELAYED. DOG ON FIELD." 

1090 PRINT 

1100 GOTO 940 

1110 REM SIMPLE RUN 

1120 LET Y=INT(24*(R-.5)'3+3) 

1130 IF RND(1K.05 THEN 1180 

1140 GOTO 2190 

1150 REM TRICKY RUN 

1140 LET Y=INT(20*R~5> 

1170 IF RND(1)>.1 THEN 2190 

1180 LET F=-1 

1190 LET X3=X 

1200 LET X=X+FNF(1)*Y 

1210 IF ABS<X-50»=50 THEN 1240 

1220 PRINT "***FUMBLE AFTER "; 

1230 GOTO 2230 

1240 PRINT "*«*FUMBLE." 

1250 GOTO 2450 

1240 REM SHORT PASS 

1270 LET Y=INT(40*(R1-.5C3+10) 

1280 IF R<.05 THEN 1330 

1290 IF R<.15 THEN 1390 

1300 IF R<.55 THEN 1420 

1310 PRINT "COMPLETE. "; 

1320 GOTO 2190 



65 



1330 IF 0=4 THEN 1420 

1340 PRINT "INTERCEPTED." 

1350 LET F«-1 

1360 LET X=X+FNF(1)*Y 

1370 IF ABS(X-50)>=50 THEN 2450 

1380 00T0 2300 

1390 PRINT "PASSER TACKLED. "; 

1400 LET Y = -INTU0*R1> 

1410 GOTO 2190 

1420 LET Y=0 

1430 IF RNDdX.3 THEN 1460 

1440 PRINT "INCOMPLETE. "; 

1450 OOTO 2190 

1460 PRINT "BATTED DOWN. "; 

1470 OOTO 2190 

1480 REH LONG PASS 

1490 LET Y=INTd60*(R1-.5)'3+30) 

1500 IF R<.1 THEN 1330 

1510 IF RC.3 THEN 1540 

1520 IF R<.75 THEN 1420 

1530 GOTO 1310 

1540 PRINT "PASSER TACKLED. "; 

1550 LET Y = -INTd5*R1+3) 

1560 GOTO 2190 

1570 REH PUNT OR KICK 

1580 LET Y = INTdOO*(R-.5)'3t35) 

1590 IF D=4 THEN 1610 

1600 LET Y=INT(Y*1.3) 

1610 PRINT Y;L*<3>;" PUNT" 

1620 IF ABS(X+Y*FNFd>-50)>=50 THEN 1670 

1630 IF D<4 THEN 1670 

1640 LET Y1=INT(R1"2*20> 

1650 PRINT Yt;L»(3>;" RUN BACK" 

1660 LET Y=Y-Y1 

1670 GOTO 1350 

1680 REN PLACE KICK 

1690 LET Y=INT(100*(R-.5>-3+35> 

i700 IF R1>.15 THEN 1750 

1710 PRINT "KICK IS BLOCKED***" 

1720 LET X=X-5*FNF(1) 

1730 LET P=1-P 

1740 GOTO 720 

1750 LET X=X+FNFd)*Y 

1760 IF ABS(X-50)>=60 THEN 1810 

1770 PRINT "KICK IS SHORT." 

1780 IF ABS(X-50)>=50 THEN 2710 

1790 P=1-P 

1800 GOTO 630 

1810 IF R1>.5 THEN 1840 

1820 PRINT "KICK IS OFF TO THE SIDE." 

1830 GOTO 2710 

1840 PRINT "FIELD GOAL***" 

1850 LET S(P)=S(P)+3 

1860 GOTO 2640 

1870 REH OPPONENT'S PLAY 

1680 IF D>1 THEN 1940 

1890 IF RNDd)>1/3 THEN 1920 

1900 LET Z=3 

1910 GOTO 1010 

1920 LET Z=1 

1930 GOTO 1010 

1940 IF D=4 THEN 2090 

1950 IF 10+X-XK5 THEN 1890 

1960 IF X<5 THEN 1890 

1970 IF X<=10 THEN 2160 

1980 IF X>X1 THEN 2020 

1990 LET A=INT(2*RND(D) 

2000 LET Z=2+A*2 

2010 GOTO 1010 

2020 IF D<3 THEN 1990 

2030 IF X<45 THEN 1990 

2040 IF RND(1)>1/4 THEN 2070 

2050 LET Z=6 

2060 GOTO 1010 

2070 LET Z=4 

2080 OOTO 1010 

2090 IF X>30 THEN 2140 

2100 IF 10+X-XK3 THEN 1890 

2110 IF X<3 THEN 1890 

2120 LET Z=7 

2130 GOTO 1010 

2140 LET Z=5 

2150 GOTO 1010 

2160 LET A=INT(2*RND(D) 

2170 LET Z=2tA 

2180 GOTO 1010 

2190 REH GAIN OR LOSS 

2200 LET X3=X 

2210 LET X=X+FNF(1)*Y 

2220 IF ABS(X-50>>=50 THEN 2450 

2230 IF Y=0 THEN 2250 

2240 PRINT ABS(Y);L»(3); 



2250 PRINT L»(15+SGN(Y)) 

2280 IF ABS(X3-50)>40 THEN 2300 

2290 IF RNDdX.1 THEN 2860 

2300 GOSUB 800 

2310 IF F=0 THEN 2340 

2320 LET P=l-P 

2330 GOTO 740 

2340 IF FNGd»=10 THEN 740 

2350 IF DM THEN 2320 

2360 LET D=D+1 

2370 PRINT "DOUN ";D;" »; 

2380 IF (X1-50)*FNF(1)<40 THEH 2410 

2390 PRINT "GOAL TO GO" 

2400 GOTO 2420 

2410 PRINT "YARDS TO GO: ";10-FNGd) 

2420 PRINT 

2430 PRINT 

2440 GOTO 860 

2450 REH 8ALL IN END-ZONE 

2460 IF X>=100 THEN 2490 

2470 LET E=0 

2480 OOTO 2500 

2490 LET E=1 

2500 ON UE-F*2+P*4 GOTO 2510,2590,2760,2710,2590,2510,2710,2760 

2510 REH SAFETY 

2520 LET S(1-P)=S(1-P)+2 

2530 PRINT L»(I9) 

2540 GOSUB 2800 

2550 PRINT 0»(P>;" KICKS OFF FROM ITS 20 YARD LINE." 

2560 LET X=20+P*60 

2570 LET P=1-P 

2580 GOTO 590 

2590 REH OFFENSIVE TD 

2600 PRINT LSI17);"***" 

2610 IF RNDdO.8 THEN 2680 

2620 LET S(P)=S(PH7 

2630 PRINT "KICK IS GOOD" 

2640 GOSUB 2800 

2650 PRINT 0»<P);" KICKS OFF" 

2660 LET P=1-P 

2570 6JT0 560 

2680 PRINT "KICK IS OFF TO THE SIDE" 

2690 LET S(P>=S(P>+6 

2700 GOTO 2640 

2710 REH TOUCHDACK 

2720 PRINT L»d8> 

2730 LET P=1-P 

2740 LET X=20+P*60 

2750 GOTO 720 

2760 REH DEFENSIVE TD 

2770 PRINT L*(17);"F0R ";0$<1-P> ;"***" 

2780 LET P=1-P 

2790 GOTO 2600 

2800 REH SCORE 

2810 PRINT 

2820 PRINT "SCORE: ";S(0);" TO ";Sd> 

2B30 PRINT 

2840 PRINT 

2850 RETURN 

2860 REH PENALTY 

2870 LET P3=INT(2*RND(D) 

2880 PRINT Qt(P3>;" OFFSIDES 

2890 PRINT 

2900 PRINT 

2910 IF P3=0 THEN 2980 

2920 PRINT "DO YOU ACCEPT THE PENALTY"; 

2930 INPUT A* 

2940 IF A*="NO" THEN 2300 

2950 IF A«="YES" THEN 3110 

2960 PRINT "TYPE 'YES' OR 'NO'"; 

2970 GOTO 2930 

2980 REH OPPONENT'S STRATEGY ON PENALTY 

2990 IF P=1 THEN 3040 

3000 IF Y<=0 THEN 3080 

3010 IF F<0 THEN 3080 

3020 IF FNG(1X3*D-2 THEN 3080 

3030 GOTO 3100 

3040 IF Y<=5 THEN 3100 

3050 IF F<0 THEN 3100 

3060 IF D<4 THEN 3080 

3070 IF FNG11X10 THEN 3100 

3080 PRINT "PENALTY REFUSED." 

3090 GOTO 2300 

3100 PRINT "PENALTY ACCEPTED." 

3110 LET F=0 

3120 LET D=D-I 

3130 IF POP3 THEN 3160 

3140 LET X=X3-FNF(1)*5 

3150 GOTO 2300 

3160 LET X=X3+FNF(1)*5 

3170 60T0 2300 

3180 END 



PENALTY OF 5 YARDS. 
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FOOTBALL 
CREATIVE COMPUTING MQRRISTOUN, NEU JERSEY 



PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED) 



DO YOU UANT INSTRUCTIONS? YES 

THIS IS A GAME FOR TUO TEAHS IN UHICH PLAYERS HUST 
PREPARE A TAPE UITH A DATA STATEHENT (1770 FOR TEAM 1, 
1780 FOR TEAH 2) IN UHICH EACH TEAH SCRAMBLES NOS. 1-20 
THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLAYS. 
A LIST OF NOS. AND THEIR PLAYS ARE PROVIDED UITH 
BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE 
PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN 
UHENEVER SCORES ARE MADE. SCORES MAY ALSU BE OBTAINED 
BY INPUTTING 99,9V FOR PLAY NOS. TO PUNT OR ATTEMPT A 
FIELDGOAL, INPUT 77,77 FOR PLAY NOS. QUESTIONS UILL BE 
ASKED THEN. ON 4TH DOUN YOU UILL ALSO BE ASKED UHE THER 
YOU UANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSUER TO 
BOTH QUESTIONS IS NO IT UILL BE ASSUHED YOU UANt TO 
TRY AND GAIN YARDAGE. ANSUER ALL OUESTIONS YES OR NO. 
THE GAME IS PLAYED UNTIL PLAYERS TERMINATE (C0N1R0L-C). 
PLEASE PREPARE A TAPE AND RUN. 



PLEASE INPUT SCORE LIMIT ON GAME? 28 
TEAM 1 PLAY CHART 
NO. PLAY 



17 

8 

4 

14 

19 

3 

10 

1 

7 

It 

15 

9 

5 

20 

13 

18 

16 

2 

12 

6 



PITCHOUT 
TRIPLE REVERSE 
DRAU 

QB SNEAK 
END AROUND 
DOUBLE REVERSE 
LEFT SUEEP 
RIGHT SUEEP 
OFF TACKLE 
UISHBONE OPTION 
FLARE PASS 
SCREEN PASS 
ROLL OUT OPTION 
RIGHT CURL 
LEFT CURL 
UISHBONE OPTION 
SIDELINE PASS 
HALF-BACK OPTION 
RAZZLE-DAZZLE 
BOMB! Ml 



TEAR OFF HERE- 



TEAM 


2 PLAY CHART 


NO. 


PLAY 


20 


PITCHOUT 


2 


TRIPLE REVERSE 


17 


DRAU 


5 


OB SNEAK 


8 


END AROUND 


IB 


DOUBLE REVERSE 


12 


LEFT SUEEP 


11 


RIGHT SUEEP 


1 


OFF TACKLE 


4 


UISHBONE OPTION 


19 


FLARE PASS 


14 


SCREEN PASS 


10 


ROLL OUT OPTION 


7 


RIGHT CURL 


9 


LEFT CURL 


IS 


UISHBONE OPTION 


6 


SIDELINE PASS 


13 


HALF-BACK OPTION 


16 


RAZZLE-DAZZLE 


3 


BOMB! Ill 


TFAR 





TEAM 1 [0 10 20 30 40 30 60 70 80 VO 100] TEAM 2 
TEAH I DEFENDS YD GOAL — TEAM 2 DEFENDS 100 YD GOAL. 
THE COIN IS FLIPPED 

TEAM 1 RECEIVES KICK-OFF 
BALL UENT 52 YARDS. NOU ON 8 

— > 
TEAM 1 CO 10 20 30 40 50 60 70 80 90 1001 TEAM 2 

TEAM 1 DO YOU UANT TO RUNBACK? YES 

RUNBACK TEAM 1 -1 YARDS 



TEAM I DOUN 1 ON 7 
— > 



1001 TEAM 2 



10 YARDS TO 1ST DOUN 

TEAM 1 CO 10 20 30 40 50 60 70 80 90 

INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 6,2 

QUARTERBACK SCRAMBLES 

NET YARDS GAINED ON DOUN 1 ARE 33 

TEAM I DOUN I ON 40 

10 YARDS TO 1ST DOUN 
— > 
TEAM 1 CO 10 20 30 40 50 60 70 80 90 100] TEAM 2 

INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 6,4 

PASS INCOMPLETE TEAM 1 

NET YARDS GAINED ON DOUN 1 ARE 

TEAM 1 DOUN 2 ON 40 



10 YARDS TO 1ST DOUN 

TEAM 1 CO 10 20 30 40 50 60 70 80 90 100] TEAM 2 

INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 16,4 

PASS INCOMPLETE TEAM I 

NET YARDS GAINED ON DOUN 2 ARE 

TEAM 1 DOUN 3 ON 40 

10 YARDS TO 1ST DOUN 
— -> 
TEAM 1 CO 10 20 30 40 50 60 70 80 90 100] TEAM 2 

INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 9,4 

QUARTERBACK SCRAMBLED 

NET YARDS GAINED DN DOUN 3 ARE 1 

TEAM 1 DOUN 4 ON 41 

9 YARDS TO 1ST DOUN 

TEAM 1 CO 10 20 30 40 50 60 70 80 90 100J TEAM 2 

DOES TEAM 1 UANT TO PUNT? NO 

DOES TEAM 1 UANT TO ATTEMPT A FIELD GOAL? NO 

INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 13,20 

QUARTERDACK SCRAMBLED 

NET YARDS GAINED ON DOUN 4 ARE -2 

CONVERSION UNSUCCESSFUL TEAM 1 

+tt»tttt*ttttttttt+itt+t++t+t-t+t++t++t++t++t++t++t+tt++t++t+t++t+tt+ 



TEAM 2 DOUN 1 ON 39 



10 YARDS TO 1ST DOUN 



TEAM 1 CO 10 20 30 40 50 60 70 

INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,11 
PASS INCOMPLETE TEAM 2 

NET YARDS GAINED ON DOUN 1 ARE 



80 90 I00] TEAM 2 
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1 PRINT TA8(32>;"FaOTBALL" 

2 PRINT TAB(15);"CREATIVE COMPUTING NORRISTOUN, NEU JERSEY" 

3 PRINT:PRINT:PRINT 
100 REN 

120 DIN A<20),B(20),C(40>,H<2),T(2>,U<2>,X(2),Y(2),Z<2> 

130 BIN N*(2),D(2),PI(20) 

140 PRINT "PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)" 

145 PRINT:PRINT 

150 INPUT "DO YOU UANT INSTRUCTIONS" ;AS 

HO IF A»="NO" THEN 290 

H5 IF AIO-YES" THEN 150 

170 PRINT "THIS IS A BANE FOR TUO TEAHS IN UHICH PLAYERS HUST" 

180 PRINT "PREPARE A TAPE UITH A DATA STATEMENT (1770 FOR TEAH 1," 

190 PRINT "1780 FOR TEAM 2) IN UHICH EACH TEAM SCRAMBLES NOS. 1-20" 

195 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLAYS." 

200 PRINT"A LIST OF NOS. AND THEIR PLAYS ARE PROVIDED UITH" 

210 PRINT "BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIHILAR THE" 

220 PRINT "PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN" 

223 PRINT "UHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED" 

225 PRINT "BY INPUTTING 99,99 FOR PLAY NOS. TO PUNT OR ATTEMPT A" 

227 PRINT "FIELDGOAL, INPUT 77,77 FOR PLAY NOS. QUESTIONS UILL BE" 

230 PRINT "ASKED THEN. ON 4TH DOUN YOU UILL ALSO BE ASKED UHETHER" 

240 PRINT "YOU UANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSUER TO" 

250 PRINT "BOTH QUESTIONS IS NO IT UILL BE ASSUMED YOU UANT TO" 

260 PRINT "TRY AND GAIN YARDAGE. ANSUER ALL 0UESTI0N5 YES OR NO." 

270 PRINT "THE GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C)." 

280 PRINT "PLEASE PREPARE A TAPE AND RUN.": STOP 

290 PRINT:PRINT "PLEASE INPUT SCORE LIMIT ON GAHE"; [INPUT E 

300 FOR 1-1 TO 40: READ N: IF I>20 THEN 350 

330 A(N)=I: GOTO 360 

350 BIN ) =1-20 

360 C( I)=N: NEXT I 

370 FOR 1 = 1 TO 20: READ P»U>: NEXT I 

380 L=0: T=1 

410 PRINT "TE4M";T;"PLAY CHART" 

420 PRINT "NO. PLAY":PRINT 

430 FOR 1 = 1 TO 20 

440 REH 

450 PRINT C(HL);TAB(6);P»(I) 

460 NEXT I 

630 L=L+20:T=2 

640 PRINT 

650 PRINT "TEAR OFF HERE- --- " 

660 FOR X=1 TO 11: PRINT: NEXT X 

670 FOR Z=1 TO 3000: NEXT Z 

680 IF L=20 THEN 410 

690 D(1)=0: D(2)=3: M»(1 )="—>": H»(2>="<— " 

700 H(1)=0: H(2)=0: T(t)=2: T(2)=1 

710 U(1)=-1: U(2)=1: X(1>=100: X(2)=0 

720 Y(1) = 1: Y<2>-1: Z(1)=0: Z(2) = 100 

725 GOSUB 1910 

730 PRINT "TEAM 1 DEFENDS YD GOAL — TEAH 2 DEFENDS 100 YD GOAL." 

740 T=INT(2*RND(1>+1) 

760 PRINT: PRINT "THE COIN IS FLIPPED" 

765 P=X(T)-Y(T)*40 

770 GOSUB 1S60: PRINT : PRINT "TEAM";T;"RECEIVES KICK-OFF" 

780 K=INT(26»RND(1)+40) 

790 P=P-Y(T)*K 

794 IF U(T)*P<Z(T)t10 THEN 810 

795 PRINT: PRINT "BALL UENT OUT OF ENBZONE —AUTOMATIC TOUCHBACK-" 

796 GOTO 870 

810 PRINT "BALL UENT";K;"YARDS. NOU ON";P:GOSUB 1900 

830 PRINT "TEAM";T;"DO YOU UANT TO RUNBACK"; :INPUT A» 

840 IF A«="YES" THEN 1430 

845 IF A»O"N0" THEN 830 

850 IF U(T»*P<Z(T) THEN 880 

870 P=Z(T)-U(T)*20 

880 D=1: S=P 

885 FOR 1=1 TO 72: PRINT " = ";: NEXT I 

890 PRINT: PRINT "TEAH";T;"DQUN";D J"ON";P 

893 IF DOI THEN 900 

895 IF Y<T)*(P+Y<T)*10)>=X(T) THEN 898 

897 C=4: GOTO 900 

898 C=8 

900 IF C=8 THEN 904 

901 PRINT TAB(27);10-(Y(T)*P-Y(T)*S);"YARBS TO 1ST DOUN" 

902 GOTO 910 

904 PRINT TAB(27>;X(T)-Y(T)*P;"YARBS" 

910 GOSUB 1900: IF D=4 THEN 1180 

920 REH 

930 U=INT(3*RND(0)-1): GOTO 940 

936 PRINT "ILLEGAL PLAY NUMBER, CHECK AND" 

940 PRINT "INPUT OFFENSIVE PLAY, DEFENSIVE PLAY"; 

950 IF T=2 THEN 970 

960 INPUT P1.P2: GOTO 975 

970 INPUT P2,Pt 

975 IF P1=77 THEN 1180 

980 IF P1>20 THEN 1800 

985 IF PK1 THEN 1800 

990 IF P2>20 THEN 1800 



992 IF P2<1 THEN 1800 

995 P1=INT(P1): P2=INT(P2) 

1000 Y=INT<ABS(A(P1)-B(P2))/19*(<X<T)-Y<T)*Pt25)*RND( 11-151) 

1005 PRINT: IF T=2 THEN 1015 

1010 IF AIP1X11 THEN 1048 

1012 GOTO 1020 

1015 IF BIP2X11 THEN 1048 

1020 IF UOO THEN 1035 

1025 PRINT "PASS INCOMPLETE TEAM"jT 

1030 Y"0: GOTO 1050 

1035 G=RND(1): IF G>.025 THEN 1040 

1037 IF Y>2 THEN 1045 

1040 PRINT "QUARTERBACK SCRAMBLED": GOTO 1050 

1045 PRINT "PASS COMPLETED": GOTO 1050 

1048 PRINT "THE BALL UAS RUN" 

1050 P=P-U(T)*Y 

1060 PRINT: PRINT "NET YARDS GAINED ON DOUN";D;"ARE ";Y 

1070 G=RND(1): IF G>.025 THEN 1110 

1080 PRINT: PRINT "** LOSS OF POSSESSION FROM TEAM";T;"TO F£AH";T(T) 

1100 GOSUB 1850: PRINT: T=T(T): GOTO 830 

1110 IF Y(T)*P>=X(T) THEN 1320 

1120 IF U(T)*P>=Z(T> THEN 1230 

1130 IF Y(T)*P-Y(T)*S>=10 THEN 880 

1140 D=D+1: IF D<>5 THEN 885 

1160 PRINT: PRINT "CONVERSION UNSUCCESSFUL TEAM";T:T=T(T) 

1170 GOSUB 1850: GOTO 880 

1180 PRINT "DOES TEAH";T;"UANT TO PUNT";: INPUT A» 

1185 IF A»="NO" THEN 1200 

1187 IF A$<>"YES" THEN 1180 ' 

1190 PRINT:PRINT "TEAN";T;"UILL PUNT": G=RND(1>: IF G<.025 THEN 1080 

1195 60SUB 1850: K=INT(25»RND< I )+35) : T=T(T): GOTO 790 

1200 PRINT "DOES TEAH";T;"UANT TO ATTEMPT A FIELD GOAL";: INPUT M 

1210 IF A»="YES" THEN 1640 

1215 IF A»O"N0" THEN 1200 

1217 GOTO 920 

1230 PRINT: PRINT "SAFETY AGAINST TEAH";TJ"»**»**»**»****«*****»*OH-OH" 

1240 H(T(T))=H(T(T))t2: GOSUB 1810 

1280 PRINT"TEAM";T;"DO YOU UANT TO PUNT INSTEAD OF A KICKOFF"; : INPUT A* 

1290 P=Z(T)-U(T)*20: IF A$="YES" THEN 1190 

1320 PRINT: PRINT "TOUCHDOUN BY TEAH";T;"****»******«**»*»**»»YEA TEAH" 

1340 0=7: G=RND(1): IF G>.1 THEN 1380 

1360 0=6: PRINT "EXTRA POINT NO GOOD": GOTO 1390 

1380 PRINT "EXTRA POINT GOOD" 

1390 H(1)=H(THQ: GOSUB 1810 

1420 T=T(T): GOTO 765 

1430 K=INT(9*RN0(0>+1) 

1440 R=INT((<X(T)-Y(T>*P+25>*RND(1)-15)/K) 

1460 P=P-U(T)«R 

1480 PRINT:PRINT "RUNBACK TEAM"; T;R;"YARDS" 

1485 G=RND(1): IF G<.025 THEN 1080 

1490 IF YU)*P> = X(T) THEN 1320 

1500 IF U(T)*P>=Z(T) THEN 1230 

1510 GOTO 880 

1640 PRINT: PRINT "TEAM";T;"UILL ATTEMPT A FIELD GUAL" 

1645 G=RND(1): IF G<.025 THEN 1080 

1650 F=INT(35*RND(1)+20) 

1660 PRINT: PRINT "KICK IS";K;"YARDS LONG" 

1680 P=P-U(T)*F: G=RND(1) 

1690 IF G<.35 THEN 1735 

1700 IF Y(T)»P<X(T) THEN 1740 

1710 PRINT "FIELD GOAL GOOD FOR TEAM";T;"*******»****»***«**«*YEA" 

1720 0=3: GOTO 1390 

1735 PRINT "BALL UENT UIDE" 

1740 PRINT "FIELD GOAL UNSUCCESFUL TEAM";T;" - TOO BAD" 

1742 GOSUB 1850: IF Y(T)*P<X(T)+IO THEN 1745 

1744 T=T(T): OOTO 794 

1745 PRINT: PRINT "BALL NOU ON";P 
1750 T=T(T): GOSUB 1900: GOTO 830 

1770 DATA 17,8,4,14,19,3,10,1,7,11,15,9,5,20,13,18,16,2,12,6 

1780 DATA 20, 2, 17, 5, 8, 18, 12, tl, 1,4, 19, 14, 10, 7, 9, 15, 6, 13, 16, 3 

1790 DATA "PITCHOUT", "TRIPLE REVERSE", "DRAU","QB SNEAK", "END AROUND" 

1792 DATA "DOUBLE REVERSE", "LEFT SUEEP", "RIGHT SUEEP","OFF TACKLE" 

1794 DATA "UISHBONE OPTION", "FLARE PASS", "SCREEN PASS" 

1796 DATA "ROLL OUT OPTION", "RIGHT CURL", "LEFT CURL", "UISHBONE OPTION" 

1798 DATA "SIDELINE PASS","HALF-DACK OPTION", "RAZZLE-DAZZLE", "BOMB !!! !" 

1800 IF Pl<>99 THEN 936 

1810 PRINT: PRINT "TEAM 1 SCORE IS";H(1) 

1820 PRINT "TEAH 2 SCORE IS";H(2): PRINT 

1825 IF H(TXE THEN 1830 

1827 PRINT "TEAM";T;"UINS»***********»**»»**": GOTO 2000 

1830 IF P1=99 THEN 940 

1835 RETURN 

1850 PRINT 

1860 FOR X=l TO 72: PRINT "+";: NEXT X: PRINT 

1870 RETURN 

1900 PRINT TAB(D(T)+5*P/2);H*<T) 

1910 PRINT "TEAM 1 [0 10 20 30 40 50 60 70 80 90"; 

1915 PRINT " 1001 TEAM 2" 

1920 PRINT 

1930 RETURN 

2000 END 
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Fur Trader 



You are the leader of a French fur 
trading expedition in 1776 leaving the 
Ontario area to sell furs and get 
supplies for the next year. You have a 
choice of three forts at which you may 
trade. The cost of supplies and the 
amount you receive for your furs will 
depend upon the fort you choose. You 
also specify what types of furs that you 
have to trade. 

The game goes on and on until you 
elect to trade no longer. 

Author of the program is Dan 
Bachor, University of Calgary, Alberta, 
Canada. 



FUR TRADER 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 

YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 
1776 LEAPING THE LAKE ONTARIO AREA TO SELL FURS AND GET 
SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE 
FORTS AT WHICH YOU HAY TRADE. THE COST OF SUPPLIES 
AND THE AHOUNT YOU RECEIVE FOR YOUR FURS UILL DEPEND 
ON THE FORT THAT YOU CHOOSE. 
DO YOU UISH TO TRADE FURS? 
ANSUER YES OR NO ? YES 

YOU HAVE $ 600 SAVINGS. 

AND 190 FURS TO BEGIN THE EXPEDITION. 

YOUR 190 FURS ARE DISTRIBUTED AHONG THE FOLLO0IN0 
KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX. 

HOU MANY MINK PELTS DO YOU HAVE? 40 



H0U MANY BEAVER PELTS DO YOU HAVE? 50 

HOU MANY ERMINE PELTS DO YOU HAVE? 60 

HOU MANY FOX PELTS DO YOU HAVE? 40 

DO YOU UANT TO TRADE YOUR FURS AT FORT 1, FORT 2, 

OR FORT 3? FORT 1 IS FORT H0CHELAGA (MONTREAL) 

AND IS UNDER THE PROTECTION OF THE FRENCH ARMY. 

FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE 

PROTECTION OF THE FRENCH ARMY. HOUEVER, YOU MUST 

MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS. 

FORT 3 IS FORT NEU YORK AND IS UNDER DUTCH CONTROL. 

YOU MUST CROSS THROUGH IROQUOIS LAND. 

ANSUER 1, 2, OR 3. 

? 3 

YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT 

FORT NEU YORK YOU UILL RECEIVE THE HIGHEST VALUE 

FOR YOUR FURS. THE COST OF YOUR SUPPLIES 

UILLBE LOUER THAN AT ALL THE OTHER FORTS. 

DO YOU UANT TO TRADE AT ANOTHER FORT? 

ANSUER YES OR NO ? YES 

ANSUER 1, 2, OR 3. 



YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARSION, 

HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN 

THE ROUTE TO NEU YORK. YOU UILL RECEIVE AN AVERAGE VALUE 

FOR YOUR FURS AND THE COST OF YOUR SUPPLIES UILL BE AVERAGE 

DO YOU UANT TO TRADE AT ANOTHER FORT? 

ANSUER YES OR NO ? NO 



YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU 

LOST ALL YOUR FURS 

SUPPLIES AT FORT STADACONA COST S12S.0O 

YOUR TRAVEL EXPENSES TO STADACONA UERE $15.00 

YOU NOU HAVE $ 440 INCLUDING YOUR PREVIOUS SAVINGS 

DO YOU UANT TO TRADE FURS NEXT YEAR? 
ANSUER YES OR NO ? YES 



YOU HAVE » 460 SAVINGS. 

AND 190 FURS TO BEGIN THE EXPEDITION. 

YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOUINB 
KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX. 

HOU MANY HINK PELTS DO YOU HAVE? 50 

HOU MANY BEAVER PELTS DO YOU HAVE? 100 

HOU MANY ERMINE PELTS DO YOU HAVE? 20 

HOU MANY FOX PELTS DO YOU HAVE? 20 

DO YOU UANT TO TRADE YOUR FURS AT FORT 1, FORT 2, 

OR FORT 3? FORT 1 IS FORT HOCHELAGA (MONTREAL) 

AND IS UNDER THE PROTECTION OF THE FRENCH ARMY. 

FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE 

PROTECTION OF THE FRENCH ARMY. HOUEVER, YOU MUST 

MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS. 

FORT 3 IS FORT NEU YORK AND IS UNDER DUTCH CONTROL. 

YOU MUST CROSS THROUGH IROQUOIS LAND. 

ANSUER 1, 2, OR 3. 

? 3 

YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT 

FORT NEU YORK YOU UILL RECEIVE THE HIGHEST VALUE 

FOR YOUR FURS. THE COST OF YOUR SUPPLIES 

UILL BE LOUER THAN AT ALL THE OTHER FORTS. 

DO YOU UANT TO TRADE AT ANOTHER FORT? 

ANSUER YES OR NO ? NO 

YOU NARROULY ESCAPED AN IROQUOIS RAIDING PARTY. 
HOUEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND. 
SUPPLIES AT NEU YORK COST $80.00 
YOUR TRAVEL EXPENSES TO NEU YORK UERE $25.00 

YOU NOU HAVE $ 355 INCLUDING YOUR PREVIOUS SAVINGS 

DO YOU UANT TO TRADE FURS NEXT YEAR? 
ANSUER YES OR NO ? NO 




1 DIM F(4) 

2 PRINT TAB(31);"FUR TRADER" 

4 PRINT TAB<15>;"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 
6 PRINT: PRINT: PRINT 

15 60SUB 1091 

16 LET 1=600 

17 PRINT "DO YOU UISH TO TRADE FURS?" 

18 60SUB 1402 

1? IF B$="YES" THEN 100 

20 IF B$="YES " THEN 100 

21 5T0P 

100 PRINT 

101 PRINT "YOU HAVE $";I "SAVINGS." 

102 PRINT "AND 170 FURS TO BEGIN THE EXPEDITION." 

261 LET E1=INT((.15*RND<1)+.95>»10 A 2+.5>/10'2 

262 LET B1 = INT((.25*RND(1H1. 001*10-2+. 5>/10'2 

300 PRINT 

301 PRINT "YOUR 190 FURS ARE DISTRIBUTED AHONG THE FOLLOUING" 

302 PRINT "KINDS OF PELTS: HINK, BEAVER, ERNINE AND FOX." 
310 GOSUB 1430 

315 RESTORE 

330 FOR J=1 TO 4 

332 READ B$ 

333 PRINT 

335 PRINT "HOU MANY ";B$;" PELTS DO YOU HAVE"; 

338 INPUT F(J) 

340 LET F(0)=F(1)+F(2)+F(3)+F(4) 

342 IF F(0>=190 THEN 1100 

344 IF F(0!>190 THEN 500 

348 NEXT J 

350 GOTO 1100 

500 PRINT 

501 PRINT "YOU HAY NOT HAVE THAT HANY FURS." 

502 PRINT "DO NOT TRY TO CHEAT. I CAN ADD." 

503 PRINT "YOU HUST START AGAIN." 

504 GOTO 15 
508 PRINT 

511 PRINT "DO YOU UANT TO TRADE FURS NEXT YEAR?" 
513 GOTO 18 

1091 PRINT "YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN " 

1092 PRINT "1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET" 

1093 PRINT "SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE" 

1094 PRINT "FORTS AT UHICH YOU HAY TRADE. THE COST OF SUPPLIES" 

1095 PRINT "AND THE AHOUNT YOU RECEIVE FOR YOUR FURS HILL DEPEND" 

1096 PRINT "ON THE FORT THAT YOU CHOOSE." 

1099 RETURN 

1100 PRINT "DO YOU UANT TO TRADE YOUR FURS AT FORT 1, FORT 2," 

1102 PRINT "OR FORT 3? FORT 1 IS FORT HOCHELAGA (MONTREAL)" 

1103 PRINT "AND IS UNDER THE PROTECTION OF THE FRENCH ARMY." 

1104 PRINT "FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE" 

1105 PRINT "PROTECTION OF THE FRENCH ARHY. HOUEVER, YOU HUST" 

1106 PRINT "HAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." 

1108 PRINT "FORT 3 IS FORT NEU YORK AND IS UNDER DUTCH CONTROL." 

1109 PRINT "YOU MUST CROSS THROUGH IROQUOIS LAND." 

1110 PRINT "ANSUER 1, 2, OR 3." 

1111 INPUT B 

1112 IF B=1 THEN 1120 

1113 IF B=2 THEN 1135 

1115 IF D=3 THEN 1147 

1116 GOTO 1110 

1120 PRINT "YOU HAVE CHOSEN THE EASIEST ROUTE. HOUEVER, THE FORT" 

1121 PRINT "IS FAR FROM ANY SEAPORT. THE VALUE" 

1122 PRINT "YOU RECEIVE FOR YOUR FURS (JILL BE LOU AND THE COST" 

1123 PRINT "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEU YORK." 
1125 GOSUB 1400 

1129 IF B$="YES" THEN 1110 

1130 GOTO 1160 

1135 PRINT "YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARISON," 

1136 PRINT "HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN" 

1137 PRINT "THE ROUTE TO NEU YORK. YOU UILL RECEIVE AN AVERAGE VALUE" 

1138 PRINT "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES UILL BE AVERAGE 
1141 GOSUB 1400 

1144 IF B$="YES" THEN 1110 

1145 GOTO 1198 

1147 PRINT "YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT" 

1148 PRINT "FORT NEU YORK YOU UILL RECEIVE THE HIGHEST VALUE" 

1149 PRINT "FOR YOUR FURS. THE COST OF YOUR SUPPLIES" 

1150 PRINT "UILL BE LOUER THAN AT ALL THE OTHER FORTS." 
1152 GOSUB 1400 

1155 IF B*="YES" THEN 1110 

1156 GOTO 1250 
1160 LET 1=1-160 
1169 PRINT 

1174 LET M1=INT((.2*RND(1)t.70)*10-2+.5)/10-2 

1175 LET E1=INT<(.2*RND(1)+.65)*10-2+.5>/10"2 

1176 LET B1=INT((.2»RND(1)+.75)*10"2+.5)/10-2 

1177 LET D1 = INT((.2*RND(m.B0>*10 A 2+. 5>/10"2 

1180 PRINT "SUPPLIES AT FORT HOCHELAGA COST $150.00" 

1181 PRINT "YOUR TRAVEL EXPENSES TO HOCHELAGA UERE $10.00" 
1190 GOTO 1410 

1198 LET 1=1-140 



1201 PRINT 

1205 LET M1=INT((.3*RND(1)t.85)*10'2+.5)/10'2 

1206 LET E1=INT((.15*RND(1)*.BO)*10'2+.5)/10 2 

1207 LET B1 = INT((.2*RNDU)*.90>*10'2+.5)/10 2 

1209 LET P=INT(10*RND(1))H 

1210 IF P<=2 THEN 1216 

1212 IF P<=6 THEN 1224 

1213 IF P<=8 THEN 1226 

1215 IF P<=10 THEN 1235 

1216 LET F(2)=0 

1218 PRINT "YOUR BEAVER UERE TOO HEAVY TO CARRY ACROSS" 

1219 PRINT "THE PORTAGE. YOU HAD TO LEAVE THE PELTS BUT FOUND" 

1220 PRINT "THEM STOLEN UHEN YOU RETURNED" 

1221 GOSUB 1244 

1222 GOTO 1414 

1224 PRINT "YOU ARRIVED SAFELY AT FORT STADACONA" 

1225 GOTO 1239 

1226 GOSUB 1430 

1230 PRINT "YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU" 

1231 PRINT "LOST ALL YOUR FURS" 

1232 GOSUB 1244 

1233 GOTO 1418 
1235 LET F(4)=0 

1237 PRINT "YOUR FOX PELTS UERE NOT CURED PROPERLY." 

1238 PRINT "NO ONE UILL BUY THEM." 

1239 GOSUB 1244 

1240 GOTO 1410 

1244 PRINT "SUPPLIES AT FORT STADACONA COST $125.00" 

1246 PRINT "YOUR TRAVEL EXPENSES TO STADACONA UERE $15.00" 

1248 RETURN 

1250 LET 1=1-105 

1254 PRINT 

1260 LET H1=INT((.15*RND(1)t1.05)*10'2+. 51/10-2 

1263 LET D1=INT((.25*RND(1)+1.10)*10'2+. 5)/10"2 

1270 LET P=INT(10*RND(1))t1 

1271 IF P<=2 THEN 12B1 

1272 IF P<=6 THEN 1291 

1273 IF P<=8 THEN 1295 

1274 IF P<=10 THEN 1306 

1281 PRINT "YOU UERE ATTACKED BY A PARTY OF IROQUOIS." 

1282 PRINT "ALL PEOPLE IN YOUR TRADING GROUP UERE" 

1283 PRINT "KILLED. THIS ENDS THE GAME." 

1284 STOP 

1291 PRINT "YOU UERE LUCKY. YOU ARRIVED SAFELY" 

1292 PRINT "AT FORT NEU YORK." 

1293 GOTO 1311 
1295 GOSUB 1430 

1300 PRINT "YOU NARROULY ESCAPED AN IROQUOIS RAIDING PARTY." 

1301 PRINT "HOUEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND." 

1303 GOSUB 1320 

1304 GOTO 14)8 

1306 LET B1=B1/2 

1307 LET H1=H1/2 

1308 PRINT "YOUR HINK AND BEAVER UERE DAMAGED ON YOUR TRIP." 

1309 PRINT "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THFSE FURS. 

1311 GOSUB 1320 

1312 GOTO 1410 

1320 PRINT "SUPPLIES AT NEU YORK COST $80.00" 

1321 PRINT "YOUR TRAVEL EXPENSES TO NEU YORK UERE $25.00" 

1322 RETURN 

1400 PRINT "DO YOU UANT TO TRADE AT ANOTHER FORT'" 

1402 PRINT "ANSUER YES OR NO", 

1403 INPUT B$ 

1404 RETURN 
1410 PRINT 

1412 PRINT "YOUR BEAVER SOLD FOR $";B1»F(2); 
1414 PRINT "YOUR FOX SOLD FOR $";D1*F(4) 

1416 PRINT "YOUR ERMINE SOLD FOR $";E1*F(3); 

1417 PRINT "YOUR MINK SOLD FOR $";H1*F<1> 

1418 LET I=H1*F(1)tB1*F(2)+E!*F(3)+D1*F(4)+I 
1420 PRINT 

1422 PRINT "YOU NOU HAVE $";I;" INCLUDING YOUR PREVIOUS SAVINGS" 

1425 GOTO 508 

1430 FOR J=1 TO 4 

1432 LET F(J)=0 

1434 NEXT J 

1436 RETURN 

2000 DATA "MINK", "BEAVER", "ERMINE", "FOX" 

2046 END 
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Coif 



This is a single player golf game. In 
other words it's you against the golf- 
course (the computer). The program 
asks for your handicap (maximum of 
30) and your area of difficulty. You 
have a full bag of 29 clubs plus a putter. 
On the course you have to contend 
with rough, trees, on and off fairway, 
sand traps, and water hazards. In 
addition, you can hook, slice, go out of 
bounds, or hit too far. On putting, you 
determine the potency factor (or per- 
cent of swing). Until you get the swing 
of the game (no pun intended), you'll 
probably want to use a fairly high 
handicap. 

Steve North of Creative Computing 
modified the original version of this 
game, the author of which is unknown. 



GOLF 
CREATIVE COHPUTING HQRR1ST0UN, NEU JERSEY 



UELCOME 10 THE CREATIVE COHPUTING COUNTRY CLUB, 
AN EIGHTEEN HOLE CHAHPIONSHIP LAYOUT, LOCATED A SHORT 
DISTANCE FROH SCENIC DOUNTOUN HORRISTOUN. THE 
COHHENTATOR UILL EXPLAIN THE DANE AS YOU PLAY. 
ENJOY YOUR 6AHEJ SEE YOU AT THE 1»TH HOLE... 



ON GREEN 15 FEET FROH THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 

PUTT POTENCY NUHBER? 5 

PASSED BY CUP. 

ON GREEN 13 FEET FROH THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 

PUTT POTENCY NUHBER? 3 

YOU HOLED IT. 



YOUR SCORE ON HOLE 1 UAS 5 
TOTAL PAR FOR 1 HOLES IS 4 



YOUR TOTAL IS 5 



YOU ARE AT TEE OFfHOLE 2 DISTANCE 30V YARDS, PAR 4 
ON YOUR RIGHT IS TREES 
ON YOUR LEFT IS TREES 
UHAT CLUB DO YOU CHOOSE? 2 

SHOT UENT 231 YARDS. IT'S 158 YARDS FROM THE CUP. 
BALL IS li YARDS OFF LINE... IN FAIRUAY 
UHAT CLUB DO YOU CHOOSE? H 

ON GREEN 18 FEET FROH THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUHBER 1 TO 13. 

PUTT POTENCY NUHBER? 7 

PASSED BY CUP. 

OH GREEN 17 FEET FROM THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUHBER 1 TO 13. 

PUTT POTEHCY NUHBER? 5 

PASSED BY CUP. 

ON GREEN 4 FEET FROH THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUHBER 1 TO 13. 

PUTT POTENCY NUHBER? 2 

PASSEB BY CUP. 

ON GREEN 4 FEET FROH THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUHBER 1 TO 13. 

PUTT POTENCY NUHBER? 1 

YOU HOLED IT. 



UHAT IS YOUR HANDICAP? 10 

DIFFICULTIES AT GOLF INCLUDE: 

O=H00K, 1=SLICE, 2=P00R DISTANCE, 4=TRAP SHOTS, 5=PUTTING 

UHICH ONE (ONLY ONE) IS YOUR UORST? 1 



YOU ARE AT TEE OFFHOLE 1 DISTANCE 361 YARDS, PAR 4 
ON YOUR RIGHT IS ADJACENT FAIRUAY 
ON YOUR LEFT IS ROUGH 
SELECTION OF CLUBS 
YARDAGE DESIRED 
200 TO 280 YARDS 
100 TO 200 YARDS 
TO 100 YARDS 
UHAT CLUB BO YOU CHOOSE? 1 



SUGGESTED CLUBS 

1 TO 4 

IV TO 13 

2? TO 23 



SHOT UENT 237 YARDS. IT'S 124 YARDS FROH THE CUP. 
BALL IS 10 YARDS OFF LINE... IN FAIRUAY 
UHAT CLUB DO YOU CHOOSE? 15 



YOUR SCORE ON HOLE 2 UAS 6 
TOTAL PAR FOR 2 HOLES IS 8 



YOUR TOTAL IS 11 



YOU ARE AT TEE OFFHOLE 3 DISTANCE 206 YARDS, PAR 3 
UN YOUR RIGHT IS ADJACENT FAIRUAY 
ON YOUR LEFT IS ROUGH 
UHAT CLUB DO YOU CHOOSE? 1 

BALL HIT TREE - BOUNCED INTO ROUGH 131 YARDS FROM HOLE. 
UHAT CLUB DO YOU CHOOSE? 16 

YOU DUBBED IT. 

SHOT UENT 35 YARDS. IT'S 96 YARDS FROH THE CUP. 

BALL IS YARDS OFF LINE... IN FAIRUAY 

UHAT CLUB DO YOU CHOOSE? 23 

YOU HAY NOU GAUGE YOUR DISTANCE BY PERCENT (1 TO 100) 
PERCENT FULL SUING? 75 



TOO MUCH CLUB. YOU'RE PAST THE HOLE. 

SHOT UENT 160 YARDS. IT'S 36 YARDS FROH THE CUP. 

BALL IS YARDS OFF LINE... IN FAIRUAY 

UHAT CLUB BO YOU CHOOSE? 23 



TOO MUCH CLUB. YOU'RE PAST THE HOLE. 

SHOT UENT 138 YARDS. IT'S 43 YARDS FROH THE CUP. 

DALL IS 9 YARDS OFF LINE... IN FAIRUAY 

UHAT CLUB BO YOU CHOOSE? 24 



YOU HAY NOU GAUGE YDUR DISTANCE BY PERCENT (1 
PERCENT FULL SUIN6? 25 



TO 100) 



YOU HAY NOU GAUGE YOUR BISTANCE BY PERCENT (1 TO 100) 
PERCENT FULL SUING? 30 
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HORRISTOUN, NEU JERSEY" 



1 PRINT TAB(34>;"G01F" 

2 PRINT TABU5);"CREATIVE COHPUTING 

3 PRINT:PRINT:PRINT 

4 PRINT "MELCOHE TO THE CREATIVE COHPUTING COUNTRY CLUB," 

5 PRINT "AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT, LOCATED A SHORT" 
4 PRINT "DISTANCE FROH SCENIC DOUNTOUN HORRISTOUN. THE" 

7 PRINT "COHHENTATOR UILL EXPLAIN THE GAHE AS YOU PLAY." 

8 PRINT "ENJOY YOUR GAHE; SEE YOU AT THE 19TH HOLE..." 

9 PRINT:PRINTs DIH L(IO) 

10 61=18 
20 G2=0 
30 G3=0 
40 A=0 
50 N=.8 
40 S2=0 
70 F = 1 

80 PRINT "UHAT IS YOUR HANDICAP"; 

90 INPUT H 

100 IF H>30 THEN 470 

110 IF H<0 THEN 470 

120 PRINT "DIFFICULTIES AT GOLF INCLUDE:" 

130 PRINT "0=HOOK, 1=SLICE, 2=P00R DISTANCE, 4=TRAP SHOTS, 5=PUTTING" 

140 PRINT "UHICH ONE (ONLY ONE) IS YOUR UORST"; 

150 INPUT T 

HO IF T>5 THEN 120 

170 S1=0 

210 REH 

230 L(0)=0 

240 J=0 

245 Q=0 

250 S2=S2*1 

240 K=0 

270 IF F=1 THEN 310 

290 PRINT "YOUR SCORE ON H0LE";F-1 ;"UAS";S1 

291 GOTO 1750 

292 IF SDP+2 THEN 297 

293 IF S1=P THEN 299 

294 IF S1=P-1 THEN 301 

295 IF S1=P-2 THEN 303 
294 GOTO 310 

297 PRINT "KEEP YOUR HEAD DOUN." 

298 GOTO 310 

299 PRINT "A PAR. NICE GOING." 

300 GOTO 310 

301 PRINT "A BIRDIE." 

302 GOTO 310 

303 IF P=3 THEN 304 

304 PRINT "A GREAT BIO EAGLE." 

305 GOTO 310 

304 PRINT "A HOLE IN ONE." 
310 IF F=19 THEN 1710 
315 St =0 
314 PRINT 



320 IF S1=0 THEN 1590 

330 IF L(0)<1 THEN 1150 

340 X=0 

350 IF L(0)>5 THEN 1190 

340 PRINT "SHOT UENT";D1 ;"YARDS. IT'S";D2;"YARDS FROH THE CUP." 

342 PRINT "BALL IS";INT(0>;"YARDS OFF LINE... IN "; 

380 GOSUB 400 

390 GOTO 420 

400 IF L(X)=I THEN 480 

410 IF L(X)=2. THEN 500 




-^^^4i 
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SUGGESTED CLUBS" 

1 TO 4" 

19 TO 1J" 

29 TO 23" 



420 IF L(X)=3 THEN 520 

430 IF L(X>=4 THEN 540 

440 IF L(X)=5 THEN 540 

450 IF L<X)=6 THEN 580 

460 PRINT "OUT OF BOUNDS" 

465 GOTO 1690 

470 PRINT "PGA RULES HANDICAP = TO 30" 

472 GOTO 80 

480 PRINT "FAIRUAY" 

490 GOTO 1690 

500 PRINT "ROUGH" 

510 GOTO 1690 

520 PRINT "TREES" 

530 GOTO 1690 

540 PRINT "ADJACENT FAIRUAY" 

550 GOTO 1690 

560 PRINT "TRAP" 

570 GOTO 1690 

580 PRINT "UATER" 

590 GOTO 1690 

620 IF A=1 THEN 629 

621 PRINT "SELECTION OF CLUBS" 

622 PRINT "YARDAGE DESIRED 

623 PRINT "200 TO 280 YARDS 

624 PRINT "100 TO 200 YARDS 
425 PRINT " TO 100 YARDS 
626 A=l 

629 PRINT "UHAT CLUB DO YOU CHOOSE"; 

630 INPUT C 
632 PRINT 

635 IF C<1 THEN 690 

637 IF C>29 THEN 690 

640 IF C>4 THEN 710 

650 IF L(0)<=5 THEN 740 

660 IF C=14 THEN 740 

665 IF C = 23 THEN 740 

670 GOTO 690 

680 S1=S1 -1 

690 PRINT "THAT CLUB IS NOT IN THE BAG." 

693 PRINT 

700 GOTO 620 

710 IF C<12 THEN 490 

720 C=C-6 

730 GOTO 650 

740 S1=S1+1 

741 U=l 

742 IF C>13 THEN 940 

746 IF INT(F/3)=F/3 THEN 952 

752 IF C<4 THEN 756 

754 GOTO 740 

754 IF L(0)=2 THEN 842 

740 IF S1>7 THEN 847 

770 D1=INT<<(30-H)»2.5+187-(<30-H)*.25t15>*C/2H25»RNDU)> 

780 D1=INT(D1»U> 

800 IF T=2 THEN 1170 

830 0=<RND(1)/.8)*<2*H*16)*ABS(TAN<D1*. 0035)1 

840 D2=INT(SQR(0*2+ABS<D-D1>-2>> 

850 IF D-DKO THEN 870 

840 GOTO 890 

862 PRINT "YQU DUBBED IT." 

844 01=35 

866 GOTO 830 

867 IF IK200 THEN 1300 

868 GOTO 770 

870 IF D2<20 THEN 890 

880 PRINT "TOO HUCH CLUB. YOU'RE PAST THE HOLE." 

890 B=D 

900 D=D2 

910 IF D2>27 THEN 1020 

920 IF D2>20 THEN 1100 

930 IF D2>.5 THEN 1120 

940 L(0)=9 
950 GOTO 1470 

952 IF S2tflt(10*(F-1)/18X(F-1)*(72t((H+1)/. 85)1/18 THEN 954 
954 GOTO 752 

956 Q=Qt1 

957 IF S1/20INHS1/2) THEN 1011 

958 GOTO 862 

960 PRINT "YOU HAY NOU GAUGE YOUR DISTANCE BY PERCENT (1 TO 1001" 

941 PRINT "PERCENT FULL SUING"; 
970 INPUT U: U=U/100 

972 PRINT 

980 IF U>1 THEN 680 
985 IF L<0)=5 THEN 1280 
990 IF C=14 THEN 760 
1000 C=C-10 

1010 GOTO 760 

1011 IF D<95 THEN 862 

1012 PRINT "BALL HIT TREE - BOUNCED INTO RQUGH";D~75;"YARDS FROM HOLE. 
1014 D=D-75 

1018 GOTO 620 



1020 IF 0<30 THEN 1150 
1022 IF J>0 THEN 1150 
1030 IF T>0 THEN 1070 

1035 S9=(S2+1)/15 

1036 IF INT(S9)=S9 THEN 1075 
1040 PRINT "YOU HOOKED- "; 
1050 L(0)=L(2) 

1055 IF 0>45 THEN 1092 
1060 GOTO 320 

1070 S?=(S2+S J/15 

1071 IF INT(S9)=S9 THEN 1040 
1075 PRINT "YOU SLICED- "; 
1080 L(0)=L(1) 

1090 GOTO 1055 

1092 PRINT "BADLY." 

1094 GOTO 320 

1100 L(0)=5 

1110 GOTO 320 

1120 L<0)=8 

1130 D2=INT(D2*3) 

1140 GOTO 1380 

1150 L(0)=1 

1160 GOTO 320 

1170 D1=INT(.85*D1) 

1180 GOTO 830 

1190 IF L(0)>6 THEN 1260 

1200 PRINT "YOUR SHOT UENT INTO UATER." 

1210 S1=S1+1 

1220 PRINT "PENALTY STROKE ASSESSED. HIT FROH PREVIOUS LOCATION." 

1230 J=J+1 

1240 L(0)=1 

1242 D=B 

1250 GOTO 620 

1260 PRINT "YOUR SHOT UENT OUT OF BOUNDS." 

1270 GOTO 1210 

1280 IF T=3 THEN 1320 

1300 D2=1+(3*INT((80/(40-H))*RND<1)>) 

1310 GOTO 1380 

1320 IF RND(1)>N THEN 1360 

1330 N=N*.2 

1340 PRINT "SHOT DUBBED, STILL IN TRAP." 

1350 GOTO 620 

1360 N=.8 

1370 GOTO 1300 

1380 PRINT "ON GREEN";D2;"FEET FROH THE PIN." 

1381 PRINT "CHOOSE YOUR PUTT DISTANCE POTENCY NUHBER 1 TO 13." 

1382 PRINT "PUTT POTENCY NUHBER"; 
1400 INPUT I 

1410 SI=S1+1 

1420 IF 5H1-PXH*. 0721 + 2 THEN 1470 

1425 IF K>2 THEN 1470 

1428 K=K+1 

1430 IF T=4 THEN 1530 

1440 D2=D2-I*(4t2*RND<imi.5 

1450 IF D2<-2 THEN 1560 

1460 IF D2>2 -THEN 1500 

1470 PRINT "YOU HOLED IT." 

1472 PRINT 

1480 F=F+1 

1490 GOTO 230 

1500 PRINT "PUTT SHORT." 

1505 B2=INT(D2) 

1510 GOTO 1380 

1530 D2=D2-I»(4+1*RNB(1))+t 

1550 GOTO 1450 

1560 PRINT "PASSED BY CUP." 

1570 D2=-D2 

1580 GOTO 1505 

1590 READ D,P,L(1),L(2) 

1595 PRINT 

1600 PRINT "YOU ARE AT TEE 0FFH0LE";F;"D1STANCE";D;"YARDS, PAR";P 

1605 G3=G3tP 

1620 PRINT "ON YOUR RIGHT IS "; 

1630 X=1 

1640 60SUB 400 

1650 PRINT "ON YOUR LEFT IS "; 

1660 X=2 

1670 GOSUB 400 

1680 GOTO 620 

1690 RETURN 

1700 DATA 361, 4, 4, 2, 389, 4, 3, 3, 206, 3, 4, 2, 500, 5, 7, 2 

1702 DATA 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4 

1704 DATA 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2 

1706 DATA 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2 

1708 DATA 180,3,4,2,550,5,4,4 

1710 PRINT 

1750 62=62*51 

1740 PRINT "TOTAL PAR F0R";F-1 ;"HOLES IS";G3;" YOUR TOTAL IS";G2 

1741 IF G1=F-1 THEN 1770 
1765 GOTO 292 

1770 END 
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Gomoko 



GOMOKO or GOMOKU is a 
traditional game of the Orient, It is 
played by two people on a board of 
intersecting lines (19 left-to-right lines, 
19 top-to-bottom lines, 361 intersec- 
tions in all). Players take turns. During 
his turn, a player may cover one 
intersection with a marker; (one player 
uses white markers; the other player 
uses black markers). The object of the 
game is to get five adjacent markers in 
a row, horizontally, vertically or along 
either diagonal. 

Unfortunately, this program does not 
make the computer a very good player. 
It does not know when you are about to 
win or even who has won. But some of 
its moves may surprise you. 

The original authorof this program is 
Peter Sessions of People's Computer 
Company. 

GOMOKO 
CREATIVE COHPUTING MORRISTOUN, NEU JERSEY 

UELCOHE TO THE ORIENTAL GAME OF GOHOKO. 

THE OAHE IS PLAYED ON AN N BY N GRID OF A SIZE 
THAT YOU SPECIFY. DURING YOUR PLAY, YOU HAY COVER ONE GRID 
INTERSECTION UITH A HARKER. THE OBJECT OF THE GAME IS TO GET 
5 ADJACENT MARKERS IN A ROU - HORIZONTALLY, VERTICALLY, OR 
DIAGONALLY. ON THE BOARD DIAGRAM, YOUR HOVES ARE HARKED 
UITH A 'V AND THE COMPUTER MOVES UITH A '2". 

THE COMPUTER DOES NOT KEEP TRACK OF UHO HAS UON. 
TO END THE GAME, TYPE -1,-1 FOR YOUR MOVE. 

UHAT IS YOUR BOARD SIZE (HIN 7/ MAX 19)7 10 

UE ALTERNATE MOVES. YOU GO FIRST... 



YOUR PLAY 
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,J>? 4 
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YOUR PLAY 
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YOUR PLAY <I,J>? 5, 
ILLEGAL HOVE. TRY AGAIN. 
YOUR PLAY <I,J>? 5,5 




YOUR PLAY (I, J)? 1,1 
1000000000 



1 1 

2 2 



1 1 

2 2 



YOUR PLAY (I, J)? -1,-1 



THANKS FOR THE GAME!! 

PLAY AGAIN (1 FOR YES, FOR NO)? 



MORRISTOUN, NEU JERSEY" 



GOTO 310 



GOTO 310 



2 PRINT TAB (33); "60M0K0" 

4 PRINT TAB(15);"CREATIWE COMPUTING 

6 PRINT:PRINT:PRINT 

8 DIM All?, 17) 

10 PRINT "UELCOHE TO THE ORIENTAL GAME OF GOMOKO." 

20 PRINT: PRINT "THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE" 

30 PRINT "THAT YOU SPECIFY. DURING YOUR PLAY, YOU MAY COVER ONE GRID" 

40 PRINT "INTERSECTION UITH A MARKER. THE OBJECT OF THE GAME IS TO GET" 

50 PRINT "5 ADJACENT MARKERS IN A ROU — HORIZONTALLY, VERTICALLY, OR" 

60 PRINT "DIAGONALLY. ON THE BOARB DIAGRAM, YOUR MOVES ARE MARKED" 

70 PRINT "UITH A M' AND THE COMPUTER MOVES UITH A '2'." 

80 PRINT: PRINT "THE COMPUTER DOES NOT KEEP TRACK OF UHO HAS UON." 

90 PRINT "TO END THE GAME, TYPE -1,-1 FOR YOUR MOVE.": PRINT 

110 PRINT "UHAT IS YOUR BOARD SIZE (HIN 7/ MAX 19)";: INPUT N 

115 IF N>6 THEN 117 

116 60TO 120 

117 IF N<20 THEN 210 

120 PRINT "I SAID, THE MINIMUH IS 7, THE HAXIMUM IS 1?.": GOTO 110 

210 FOR 1 = 1 TO N:F0R J=1 TO N: A(X,Y>=0: NEXT J: NEXT I 

300 PRINT: PRINT "UE ALTERNATE MOVES. YOU 00 FIRST...": PRINT 

310 PRINT "YOUR PLAY (I, J)";: INPUT I, J 

320 IF I=-1 THEN 980 

330 X-I: Y=J: GOSUB 910: IF L=1 THEN 410 

340 PRINT "ILLEGAL MOVE. TRY AGAIN...": 

410 IF A(I,J)=0 THEN 440 

420 PRINT "SQUARE OCCUPIED. TRY AGAIN.. 

440 A(I,J)=1 

500 REM »»» COMPUTER TRIES AN INTELLIGENT MOVE *«* 

510 FOR E=-1 TO 1: FOR F=-1 TO 1 : IF E+F-E*F=0 THEN 590 

540 X-I+F: Y=J*F: GOSUB 910 

570 IF L=0 THEN 590 

580 IF A(X,Y)=1 THEN 710 

590 NEXT F: NEXT E 

600 REM *»* COMPUTER TRIES A RANDOM MOVE *** 

610 X=INT(N*RND(1)*1): Y=INT(N*RND<1 HI > : GOSUB 910: IF L=0 THEN 610 

650 IF A(X,Y)<>0 THEN 610 

660 A(X,Y>=2: GOSUB 810: SOTO 310 

710 X=I-E: Y=J-F: GOSUB 910 

750 IF L=0 THEN 610 

760 GOTO 650 

BOO REM »** PRINT THE BOARD *♦* 

810 FOR 1 = 1 TO N: FOR J=1 TO N: PRINT Ad, J); 

840 NEXT J: PRINT: NEXT I: PRINT: RETURN 

910 L=1: IF X<1 THEN 970 

920 IF X>N THEN 970 

930 IF Y<1 THEN 970 

940 IF Y>N THEN 970 

950 RETURN 

970 L=0: RETURN 

980 PRINT: PRINT "THANKS FOR THE GAME!!" 

985 PRINT "PLAY AGAIN (1 FOR YES, FOR NO)";: INPUT Q 

990 IF Q=1 THEN 110 

999 END 
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Guess 



In Program GUESS, the computer 
chooses a random integer between 
and any limit you set. You must then try 
to guess the number the computer has 
chosen using the clues provided by the 
computer. 

You should be able to guess the 
number in one less than the number of 
digits needed to represent the number 
in binary notation — i.e., in base 2. This 
ought to give you a clue as to the 
optimum search technique. 

GUESS converted from the original 
program in FOCAL which appeared in 
the book "Computers in the 
Classroom" by Walt Koetke of Lex- 
ington High School, Lexington, 
Massachusetts. 




GUESS 
CREATIVE CQHPUTINO NQRRISTOUN, NEU JERSEY 

THIS IS A NUMBER GUESSING GAME. I'LL THINK 
OF A NUHBER BETUEEN 1 AND ANY LIMIT YOU UANT. 
THEN YOU HAVE TO GUESS UHAT IT IS. 



UHAT LIHIT DO YOU UANT? 200 



MORRIS rOUN, NEU JERSEY" 



"UHAT LIHIT DO YOU UANT"; 



1 PRINT TAB(33);"GUESS" 

2 PRINT TAB(15);"CREATIVE COMPUTING 

3 PRINT:PRINT:PRINT 

4 PRINT "THIS IS A NUHBER GUESSING GAME. I'LL THINK" 

5 PRINT "OF A NUHBER BETUEEN I AND ANY LIHIT YOU UANT. 

6 PRINT "THEN YOU HAVE TO GUESS UHAT IT IS." 

7 PRINT 

8 PRINT 

9 INPUT 

10 PRINT 

11 L1=INT(LOG(L)/L00(2))t1 

12 PRINT "I'M THINKING OF A NUMBER BETUEEN 1 AND ";L 

13 6=1 

14 PRINT "NOU YOU TRY TO GUESS UHAT IT IS." 

15 M=INT(L*RND(1)t1) 

20 INPUT N 

21 IF N>0 THEN 25 

22 GOSUB 70 

23 GOTO I 
25 IF N=H THEN 50 

30 G=Gt1 

31 IF N>M THEN 40 

32 PRINT "TOO LQU. 

33 B0T0 20 
40 PRINT "TOO HIGH. 
42 D0T0 20 

50 PRINT "THAT'S IT! 
52 IF G<L1 THEN 58 
54 IF G=L1 THEN 60 

56 PRINT "YOU SHOULD HAVE BEEN ABLE TO GET IT IN 0NLY";L1 

57 GOTO 65 

58 PRINT "VERY "; 
60 PRINT "GOOD." 

65 GOSUB 70 

66 GOTO 12 

70 FOR H=1 TO 5 

71 PRINT 

72 NEXT H 

73 RETURN 
9? END 



TRY A BIGGER ANSUER." 



TRY A SMALLER ANSUER." 



YOU GOT IT IN";G;"TRIES. 



I'M THINKING OF A NUMBER BETUEEN 1 AND 200 

NOU YOU TRY TO GUESS UHAT IT IS. 

1. 100 

TOO LOU. TRY A BIGGER ANSUER. 

7 150 

TOO HIGH. TRY A SMALLER ANSUER. 

7 125 

TOO HIGH. TRY A SMALLER ANSUER. 

7 112 

TOO LOU. TRY A BI00ER ANSUER. 

7 118 

TOO LOU. TRY A BIGGER ANSUER. 

7 123 

THAT'S IT! YOU GOT IT IN 6 TRIES. 

VERY GOOD. 

I'M THINKING OF A NUMBER BETUEEN 1 AND 200 

NOU YOU TRY TO GUESS UHAT IT IS. 

7 100 

TOO HIGH. TRY A SMALLER ANSUER. 

7 75 

TOO HIGH. TRY A SMALLER ANSUER. 

7 55 

TOO HIGH. 

7 45 

TOO HIGH. 

7 20 

TOO HIGH. 

7 10 

TOO LOU. TRY A BIGGER ANSUER. 

7 11 

TOO LOU. TRY A BIGGER ANSUER. 

7 13 

TOO LOU. TRY A BIGGER ANSUER. 

7 15 

TOO LOU. TRY A BIGGER ANSUER. 

7 16 

TOO LOU. TRY A BIGGER ANSUER. 

? 17 

TOO LOU. TRY A BIGGER ANSUER. 

7 19 

TOO HIGH. TRY A SMALLER ANSUER. 

7 18 

THAT'S IT! YOU GOT IT IN 13 TRIES. 

YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY 



TRY A SMALLER ANSUER. 
TRY A SMALLER ANSUER. 
TRY A SMALLER ANSUER. 
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Gunner 



GUNNER allows you to adjust the 
fire of a field artillery weapon to hit a 
stationary target. You specify the 
number of degrees of elevation of your 
weapon; 45 degrees provides max- 
imum range with values under or over 
45 degrees providing less range. 

You get up to five shots to destroy the 
enemy before he destroys you. Gun 
range varies between 20,000 and 
60,000 yards and burst radius is 100 
yards. You must specify elevation 
within approximately 0.2 degrees to get 
a hit. 

Tom Kloos of the Oregon Museum of 
Science and Industry in Portland, 
Oregon originally wrote GUNNER. 
Extensive modifications were added by 
David Ahl. 



GUNNER 
CREATIVE COHPUTING HURRISTQUN, NEU JERSEY 



YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN 
CREU, TELLING THEH THE DEGREES OF ELEVATION YOU ESTIMATE 
UILL PLACE A PROJECTILE ON TARGET. A HIT UITHIN 100 YARDS 
OF THE TARGET UILL DESTROY IT. 

MAXIMUM RANGE OF YOUR GUN IS 55684 YARDS. 

DISTANCE TO THE TARGET IS 15755 YARDS. 



ELEVATION? ? 

OVER TARGET BY 1452 YARDS. 



ELEVATION? 8 

SHORT OF TARGET BY 407 YARDS. 



10 PRINT TAB(30);"GUNNER" 

20 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

130 PRINT "YOU ARE THE OFFICER-IN-CHARGE, 6IVING ORDERS TO A GUN" 

140 PRINT "CREU, TELLING THEH THE DEGREES OF ELEVATION YOU ESTIMATE" 

150 PRINT "UILL PLACE A PROJECTILE ON TARGET. A HIT UITHIN 100 YARDS" 

HO PRINT "OF THE TARGET UILL DESTROY IT." : PRINT 

170 R=INT(40000*RND(1)+20000) 

180 PRINT "HAXIHUN RANGE OF YOUR GUN IS ";R;» YARDS." 

185 Z=0 

190 PRINT 

195 S1=0 

200 T=INT(R*(.1+.8*RND(1))) 

210 S=0 

220 GOTO 370 

230 PRINT "HINIHUfl ELEVATION IS ONE DEGREE." 

240 GOTO 390 

250 PRINT "HAXIHUH ELEVATION IS 8? DEGREES." 

240 GOTO 390 

270 PRINT "OVER TARGET BY";ABS(E);"YARDS." 

280 GOTO 390 

290 PRINT "SHORT OF TARGET BY"ABS(E) f'YARDS." 

300 GOTO 390 

320 PRINT "*»* TARGET DESTROYED *** ";S;"R0UNDS OF AMMUNITION EXPENDED 

325 St=S1+S 

330 IF Z=4 THEN 490 

340 Z=Zt1 

345 PRINT 

350 PRINT "THE FORUARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY..." 

360 GOTO 200 

370 PRINT " DISTANCE TO THE TARGET IS"T; "YARDS. " 

380 PRINT 

390 PRINT 

400 INPUT "ELEVATION";B 

420 IF B>89 THEN 250 

430 IF B<! THEN 230 

440 S=S+1 

442 IF S<6 THEN 450 

444 PRINTrPRINT "BOOM !!!! YOU HAVE JUST BEEN DESTROYED "; 

446 PRINT "BY THE ENEMY." : PRINT : PRINT : PRINT : GOTO 495 

450 B2=2*B/57.3 : I = R*SIN(B2I : X=T-I : E=INT(X> 

460 IF ABSfEKlOO THEN 320 

470 IF E>100 THEN 290 

480 GOTO 270 

490 PRINT : PRINT : PRINT "TOTAL ROUNDS EXPENDED UERE:";S1 

492 IF S1>!8 THEN 495 

493 PRINT "NICE SHOOTING !!" : GOTO 500 

495 PRINT "BETTER 60 BACK TO FORT SILL FOR REFRESHER TRAINING!" 

500 PRINT : INPUT "TRY AGAIN (Y OR N)";Z» 

510 IF Z*="Y" THEN 170 

520 PRINT "OK. RETURN TO BASE CAMP." 

999 END 



ELEVATION? 8.2 

*** TARGET DESTROYED *** 



3 ROUNDS OF AMMUNITION EXPENDED 



THE FORUARD OBSERVER HAS SIGHTED HORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 11349 YARDS. 



ELEVATION? 84 

OVER TARGET BY 241 YARDS. 

ELEVATION? 84.1 

*** TARGET DESTROYED »*« 2 ROUNDS OF AMMUNITION EXPENDED 

THE FORUARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 19146 YARDS. 



ELEVATION? 11 

OVER TARGET BY 1713 YARDS. 

ELEVATION? 10 

SHORT OF TARGET BY 102 YARDS. 



ELEVATION? 10.06 

**« TARGET DESTROYED *** 



3 ROUNDS OF AMMUNITION EXPENDED 



THE FORUARD OBSERVER HAS SIGHTED MORE ENEHY ACTIVITY. 
DISTANCE TO THE TARGET IS 10792 YARDS. 



ELEVATION? 84.3 

OVER TARGET BY 227 YARDS. 

ELEVATION? 84.4 

*»* TARGET DESTROYED *** 2 ROUNDS OF AMMUNITION EXPENDED 

THE FORUARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 36976 YARDS. 



ELEVATION? 21 

OVER TARGET BY 282 YARDS. 

ELEVATION? 20.8 

*** TARGET DESTROYED *** 2 ROUNDS OF AMMUNITION EXPENDED 



TOTAL ROUNDS EXPENDED UERE: 12 
NICE SHOOTING i ! 

TRY AGAIN (Y OR N>? N 
OK. RETURN TO BASE CAMP. 
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Hammurabi 



In this game you direct the ad- 
ministrator of Sumeria, Hammurabi, 
how to manage the city. The city 
initially has 1 ,000 acres, 100 people and 
3,000 bushels of grain in storage. 

You may buy and sell land with your 
neighboring city-states for bushels of 
grain — the price will vary between 17 
and 26 bushels per acre. You also must 
use grain to feed your people and as 
seed to plant the next year's crop. 

You will quickly find that a certain 
number of people can only tend a 
certain amount of land and that people 
starve if they are not fed enough. You 
also have the unexpected to contend 
with such as a plague, rats destroying 
stored grain, and variable harvests. 

You will also find that managing just 
the few resources in this game is not a 
trivial job over a period of say ten years. 
Thecrisis of population density rears its 
head very rapidly. 

This program was originally written 
in Focal at DEC; author unknown. 
David Ahl converted it to BASIC and 
added the 10-year performance 
accessment. If you wish to change any 
of the factors, the extensive remarks in 
the program should make modification 
fairly straightforward. 

Note for trivia buffs: somewhere 
along the line an m was dropped out of 
the spelling of Hammurabi in the Ahl 
version of the computer program. This 
error has spread far and wide until a 
generation of students who have used 
this program now think that Ham- 
murabi is the incorrect spelling. 

HAHURABI 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 

TRY YOUR HAND AT GOVERNING ANCIENT SUHERIA 
FOR A TEN-YEAR TERN OF OFFICE. 

HANURABI: I BEG TO REPORT TO YOU, 

IN YEAR 1 , PEOPLE STARVED, 5 CAHE TO THE CITY, 

POPULATION IS NOU 100 

THE CITY NOU 0UNS 1000 ACRES. 

YOU HARVESTED 3 BUSHELS PER ACRE. 

RATS ATE 200 BUSHELS. 

YOU NOV HAVE 2B0O BUSHELS IN STORE. 

LAND IS TRADING AT 24 BUSHELS PER ACRE. 
HOU HANY ACRES DO YOU UISH TO BUY? 10 



HOU HANY BUSHELS DO YOU UISH TO FEED YOUR PEOPLE? 2000 
HOU HANY ACRES DO YOU UISH TO PLANT UITH SEED? 990 

HAHURABI: I BED TO REPORT TO YOU, 

IN YEAR 2 , PEOPLE STARVED, 5 CAHE TO THE CITY, 

POPULATION IS NOU 105 

THE CITY NOU OUNS 1010 ACRES. 

YOU HARVESTED 3 BUSHELS PER ACRE. 

RATS ATE 16 BUSHELS. 

YOU NOU HAVE 301V BUSHELS IN STORE. 

LAND IS TRADING AT 21 BUSHELS PER ACRE. 
HOU MANY ACRES DO YOU UISH TO BUY? 23 

HOU HANY BUSHELS DO YOU UISH TO FEED YOUR PEOPLE? 2000 

HOU HANY ACRES DO YOU UISH TO PLANT UITH SEED? 1000 
HAHURABI: THINK AGAIN. YOU HAVE ONLY 

494 BUSHELS OF GRAIN. NOU THEN, 
HOU HANY ACRES DO YOU UISH TO PLANT UITH SEED? 500 

HAHURABI: I BEG TO REPORT TO YOU, 

IN YEAR 3 , 5 PEOPLE STARVED, 5 CAHE TO THE CITY, 

A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED. 

POPULATION IS NOU 52 

THE CITY NOU OUNS 1035 ACRES. 

YOU HARVESTED 1 BUSHELS PER ACRE. 

RATS ATE BUSHELS. 

YOU NOU HAVE 744 BUSHELS IN STORE. 

LAND IS TRADING AT 17 BUSHELS PER ACRE. 
HOU HANY ACRES DO YOU UISH TO BUY? 
HOU HANY ACRES DO YOU UISH TO SELL? 25 

HOU HANY BUSHELS DO YOU UISH TO FEED YOUR PEOPLE? 1000 

HOU HANY ACRES DO YOU UISH TO PLANT UITH SEED? 500 
HAHURABI: THINK AGAIN. YOU HAVE ONLY 

169 BUSHELS OF GRAIN. NOU THEN, 
HOU HANY ACRES DO YOU UISH TO PLANT UITH SEED? 300 



HAHURABI: I BEG TO REPORT TO YOU, 

IN YEAR 4 , 2 PEOPLE STARVED, 12 CAHE TO THE CITY, 

POPULATION IS NOU 62 

THE CITY NOU OUNS 1010 ACRES. 

YOU HARVESTED 1 BUSHELS PER ACRE. 

RATS ATE BUSHELS. 

YOU NOU HAVE 319 BUSHELS IN STORE. 

LAND IS TRADING AT 23 BUSHELS PER ACRE. 
HOU HANY ACRES DO YOU UISH TO BUY? 
HOU HANY ACRES DO YOU UISH TO SELL? 500 

HOU HANY BUSHELS DO YOU UISH TO FEED YOUR PEOPLE? 500 

HOU HANY ACRES DO YOU UISH TO PLANT UITH SEED? 230 

YOU STARVED 37 PEOPLE IN ONE YEAR!!! 
DUE TO THIS EXTREHE HISHANAGEHENT YOU HAVE NOT ONLY 
BEEN IHPEACHED AND THROUN OUT OF OFFICE BUT YOU HAVE 
ALSO BEEN DECLARED NATIONAL FINK!!!! 

SO LONG FOR NOU. 
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10 PRINT TAB(32>;"HArtURABl" 

20 PRINT TftBC15);"CREftTIME CUHPUTINB HORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUNERIA" 

90 PRINT "FOR A TEN-YEAR TERM OF OFFICE. ":PRINT 

V5 D1=0: P1=0 

100 Z=0: P=95:S=2B0O: H=3000: E=H-S 

110 Y=3: A=H/Yi 1=5: Q=1 

210 D=0 

215 PRINT:PRINT:PRINT "HAHURABI: I BEG TO REPORT TO YOU,": Z=Z+1 

21? PRINT "IN YEAR";Z;",";Il;"PEOPLE STARVED, ";I;"CAHE TO THE CITY," 

218 P=PH 

227 IF Q>0 THEN 230 

228 P=INT(P/2) 

229 PRINT "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED." 

230 PRINT "POPULATION IS NOU";P 

232 PRINT "THE CITY NOU OUNS";A;"ACRES." 

235 PRINT "YOU HARVESTED";Y;"BUSHELS PER ACRE." 

250 PRINT "RATS ATE" ;E; "BUSHELS. " 

260 PRINT "YOU NOU HAVE";S;"BUSHELS IN STORE.": PRINT 

270 IF Z=11 THEN 860 

310 C=INT(10*RND<1>>: Y=C*17 

312 PRINT "LAND IS TRADING AT";Y;"BUSHELS PER ACRE." 

320 PRINT "HOU HANY ACRES DO YOU UISH TO BUY"; 

321 INPUT Q: IF 0<0 THEN 850 

322 IF Y*Q<=S THEN 330 

323 GOSUB 710 

324 GOTO 320 

330 IF 0=0 THEN 340 

331 A=AtO: S=S-Y«Q: C=0 
334 GOTO 400 

340 PRINT "HOU MANY ACRES BO YOU UISH TO SELL"; 

341 INPUT 0: IF Q<0 THEN 850 

342 IF Q<A THEN 350 

343 GOSUB 720 

344 OOTO 340 

350 A=A-Q: S=S+Y*Q: C=0 
400 PRINT 

410 PRINT "HOU HANY BUSHELS DO YOU UISH TO FEED YOUR PEOPLE"; 

411 INPUT 

412 IF Q<0 THEN 850 

418 REH ♦** TRYING TO USE MORE GRAIN THAN IS IN SILOS? 

420 IF 0<=S THEN 430 

421 GOSUB 710 

422 GOTO 410 

430 S=S-Q: C=1: PRINT 

440 PRINT "HOU MANY ACRES DO YOU UISH TO PLANT UITH SEED"; 

441 INPUT D: IF D=0 THEN 511 

442 IF D<0 THEN 850 

444 REH *** TRYING TO PLANT MORE ACRES THAN YOU OUN? 

445 IF D<=A THEN 450 

446 GOSUB 720 

447 GOTO 440 

449 REH »*» ENOUGH GRAIN FOR SEEDT 

450 IF INT(D/2X=S THEN 455 

452 GOSUB 710 

453 GOTO 440 

454 REH ♦»» ENOUGH PEOPLE TO TEND THE CROPS? 

455 IF D<10»P THEN 510 



460 PRINT "BUT YOU HAVE ONLY";P;"PEOPLE TO TEND THE FIELDS! NOU THEN," 
470 GOTO 440 

510 S=S-INT<D/2> 

511 GOSUB 800 

312 REM ♦«» A BOUNTIFUL HARVEST! 
515 Y=C: H=D*Y: E=0 

521 GOSUB 800 

522 IF INT(C/2)OC/2 THEN 530 

523 REM *♦* RATS ARE RUNNING UILDH 
525 E=INT(S/C) 

530 S=S-EtH 

531 GOSUB 800 

532 REM *** LET'S HAVE SOME BABIES 

533 I=INT(C«(20»AtS)/P/1O0+1) 

539 REM »»* HOU MANY PEOPLE HAD FULL TUNHIES? 

540 C=INT(Q/20) 

541 REM *** HORROR, A 15Z CHANCE OF PLAGUE 

542 Q=INT(10«(2*RND(1>-.3)> 

550 IF P<C THEN 210 

551 REM *»» STARVE ENOUGH FOR IMPEACHMENT? 

552 D=P~C: IF D>.45»P THEN 560 

553 PI = ((Z-1)«PHB*100/P)/Z 
555 P=C: D1=DI+D: GOTO 215 

560 PRINT: PRINT "YOU STARVED";D;"PEOPLE IN ONE YEAR!!!" 

565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 

566 PRINT "BEEN IMPEACHED AND THROUN OUT OF OFFICE BUT YOU HAVE" 

567 PRINT "ALSO BEEN DECLARED NATIONAL FINK!!!!": GOTO 990 

710 PRINT "HAHURABI: THINK AGAIN. YOU HAVE ONLY" 

711 PRINT S;"BU5HELS OF GRAIN. NOU THEN," 

712 RETURN 

720 PRINT "HAHURABI: THINK AGAIN. YOU OUN ONLY";A;"ACRES. NOU THEN," 
7i0 RETURN 

800 C=INT(RND(1)*5H-1 

801 RETURN 

850 PRINT: PRINT "HAHURABI: I CANNOT DO UHAT YOU UISH." 

855 PRINT "GET YOORSELF ANOTHER STEWARD! ! I M" 

857 OOTO 990 

860 PRINT "IN YOUR 10-YEAR TERM OF OFFICE, ";P1 ["PERCENT OF THE" 

842 PRINT "POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF" 

865 PRINT DISPEOPLE DIED!!": L=A/P 

870 PRINT "YOU STARTED UITH 10 ACRES PER PERSON AND ENDED UITH" 

875 PRINT L;"ACRES PER PERSON.": PRINT 

880 IF P1>33 THEN 565 

885 IF L<7 THEN 565 

890 IF P1>10 THEN 940 

892 IF L<9 THEN 940 

895 IF IF P1>3 THEN 960 

896 IF L<10 THEN 960 

900 PRINT "A FANTASTIC PERFORMANCE!!! CHARLEMAGNE, DISRAELI, AND" 

905 PRINT "JEFFERSON COHBINED COULD NOT HAVE DONE BETTER!":GOT0 990 

940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV." 

945 PRINT "THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND," 

950 PRINT "FRANKLY, HATE YOUR GUTSI!":GOTO 990 

960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEUHAI BETTER, BUT" 

965 PRINT "REALLY UASN'T TOO BAD AT ALL. ";INT(P*.8*RND(1 I );"PEOPLE" 

970 PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT UE ALL HAVE OUR" 

975 PRINT "TRIVIAL PROBLEMS." 

990 PRINT: FOR N=1 TO 10: PRINT CHR»<7);: NEXT N 

995 PRINT "SO LONG FOR NOU.": PRINT 

999 END 
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Hangman 



This is a simulation of the word 
guessing game, hangman. The com- 
puter picks a word, tells you how many 
letters in the word it has picked and 
then you guess a letter in the word. If 
you are right, the computer tells you 
where that letter belongs; if your letter 
is wrong, the computer starts to hang 
you. You get ten guesses before you 
are completely hanged: 

Head 

Body 

Right and Left Arms 

Right and Left Legs 

Right and Left Hands 

Right and Left Feet 
You may add words in Data 
statements following Statement 508; 
however, if you do, you must also 
change the random word selector in 
Statement 40. 

David Ahl modified this program into 
its current form from one created by 
Kenneth Aupperle of Melville, New 
York. 



HORRISTOUN, NEU JERSEY" 



NEXT J: NEXT I 



"X" 



NEXT I 



PRINT 




10 PRINT TAB<32>;"HANGNAN" 

20 PRINT TAB<15>;"CREATIVE COHPUTINB 

25 PRINT:PRINT:PRINT 

30 DIH P$U2,12>,L$(20),D»(20>,N$<26>,U<50> 

40 C=1: N=50 

50 FOR 1=1 TO 20: D*U)=»-»: NEXT I: H=0 

60 FOR 1=1 TO 24: N$(I>="": NEXT I 

70 FOR 1=1 TO 12: FOR J=1 TO 12: P$(I,J)=" » 

80 FOR 1=1 TO 12: P»(I,1)="X": NEXT I 

90 FOR 1=1 TO 7: P$(1,I)=»X": NEXT: P*(2,7>= 

95 IF C<N THEN 100 

97 PRINT "YOU DID ALL THE U0RDS!!": STOP 

100 0=INT(N»RND(1))+1 

110 IF U(Q)=1 THEN 100 

115 U(0)=1: C=C+1: RESTORE: T1=0 

150 FOR 1=1 TO 0: READ A»: NEXT I 

160 L=LEN(A»): FOR 1=1 TO LEN1AJ): L»(I)=HID$(A$,I,1 ): 

170 PRINT "HERE ARE THE LETTERS YOU USED:" 

ISO FOR 1=1 TO 24: PRINT N»(I>;: IF N*(I+1 >=•"• THEN 200 

190 PRINT »,";: NEXT I 

200 PRINT: PRINT: FOR 1=1 TO L: PRINT D»(I);: NEXT I: PRINT: 

210 INPUT "UHAT IS YOUR 0UESS";G$: R=0 

220 FOR 1=1 TO 26: IF N»(I)=»" THEN 250 

230 IF G»=N*U> THEN PRINT "YOU OUESSED THAT LETTER BEF0REI": O0T0 170 

240 NEXT I: PRINT "PR0GRAH ERROR. RUN AGAIN.": STOP 

250 NI(I)=G»: Tl=TH1 

260 FOR 1=1 TO L: IF L»(I)=G» THEN 280 

270 NEXT I: IF R=0 THEN 290 

275 GOTO 300 

280 D»(I)=G»: R=R+1: GOTO 270 

290 H=H+1: GOTO 400 

300 FOR 1=1 TO L: IF D»U> = "-" THEN 320 

310 NEXT I: GOTO 390 

320 PRINT: FOR 1=1 TO L: PRINT D»(I);: NEXT I: PRINT: PRINT 

330 INPUT "UHAT IS YOUR GUESS FOR THE U0RD";B» 

340 IF A»=B» THEN 360 

350 PRINT "UR0NG. TRY ANOTHER LETTER.": PRINT: GOTO 170 

360 PRINT "RIGHT!! IT TOOK Y0U";T1 ;"GUESSES! " 

370 INPUT "UANT ANOTHER U0RD";U»: IF U*="YES" THEN 50 

3B0 PRINT: PRINT "IT'S BEEN FUN! BYE FOR NOU.": GOTO 99? 

390 PRINT "YOU FOUND THE UORD!": GOTO 370 

400 PRINT: PRINT: PRINT"SORRY, THAT LETTER ISN'T IN THE UORD." 

410 ON H GOTO 415,420,425,430,435,440,445,450,455,460 

415 PRINT "FIRST, UE DRAU A HEAD":' GOTO 470 

420 PRINT "NOU UE DRAU A BODY.": GOTO 470 

425 PRINT "NEXT UE DRAU AN ARH.": GOTO 470 

430 PRINT "THIS TIHE IT'S THE OTHER ARH.": GOTO 470 

435 PRINT "NOU, LET'S DRAU THE RIGHT LEG.": GOTO 470 

440 PRINT "THIS TIHE UE DRAU THE LEFT LEG.": GOTO 470 

445 PRINT "NOU UE PUT UP A HAND.": GOTO 470 

450 PRINT "NEXT THE OTHER HAND.": GOTO 470 

455 PRINT "NOU UE DRAU ONE FOOT": GOTO 470 

460 PRINT "HERE'S THE OTHER FOOT -- YOU'RE HUNG!!" 

470 ON H GOTO 480,490,500,510,520,530,540,550,560,570 

480 P*<3,6>="-": P»<3,7>="~": P»(3,8)="-": P$(4,5)="(": P$(4,6)="." 

481 P»(4,8)=".":P$(4,9)=")":PI(5,6)="-":P$(5,7)="-":P$(5,8)="-":G0r0580 
490 FOR 1=6 TO 9: P»<I,7)="X":. NEXT I: GOTO 580 

500 FOR 1=4 TO 7: P*(I,I-1 )="\": NEXT I: GOTO 580 

510 P»(4,11)='V": P*(5,10)='V": P»(6, ?)="/": P»(7,8) = '7": GOTO 580 

520 P»(10,6)=V": P»<11,5)='7": GOTO 580 

530 P«(10,8)="\": P*(11,9)="\": GOTO 580 

540 P*(3,11)="\": GOTO 580 

550 PS<3,3)='7": GOTO 580 

560 P»<12,10)="\": PS(12,11>="-": GOTO 580 

570 P»<12,3>="-": P«(12,4)='V" 

580 FOR 1=1 TO 12: FOR J=1 TO 12: PRINT PS(I,J);: NEXT J 

590 PRINT: NEXT I: PRINT: PRINT: IF HO10 THEN 170 

600 PRINT "SORRY, YOU LOSE. THE UORD UAS ";M 

610 PRINT "YOU HISSED THAT ONE. DO YOU ";: GOTO 370 

620 INPUT "TYPE YES OR N0";Y»: IF Y»="YES" THEN 50 

700 DATA "GUH", "SIN", "FOR", "CRY", "LUG", "BYE", "FLY" 

710 DATA "UGLY", "EACH", "FR0H\"U0RK\ "TALK", "UITH", "SELF" 

720 DATA "PIZZA", "THING", "FEIGN", "FIEND", "ELBOU", "FAULT", "DIRTY" 

730 DATA "BUDGET", "SPIRIT", "OUAINT","HAIDEN", "ESCORT", "PICKAX" 

740 DATA "EXAHPLE", "TENSION", "QUININE", "KIDNEY", "REPLICA", "SLEEPER" 

750 DATA "TRIANGLE", "KANGAROO", "MAHOGANY", "SERGEANT", "SEQUENCE" 

760 DATA "HOUSTACHE", "DANGEROUS", "SCIENTIST", "DIFFERENT", "QUIESCENT" 

770 DATA "MAGISTRATE", "ERRONEOUSLY", "LOUDSPEAKER", "PHYTOTOXIC" 

780 DATA "MATRIMONIAL", "PARASYMPATHOMIMETIC", "THIGMOTROPISM" 

990 PRINT "BYE NOU" 

999 END 
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HANGMAN 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 



HERE ARE THE 


: LETTEF 


iS YOU 


USI 


^D: 




SORRY, THAT 1 


LETTER 


ISN'T 


IN THE 


UORD. 


SORRY, THAT LETTER ISN'T IN THE UORD 














THIS TINE IT 


'S THE 


OTHER 


ARN. 




NOU UE PUT UP A HAND. 














XXXXXXX 










XXXXXXX 














X X 
X 










X X 

X \ 


WHAT IS VOUR 


GUESS 1 ? 


1 E 








X \ (. .) / 
X \ — / 
X \ X / 










X \ (. .) / 
X \ — / 
X \ X / 


SORRY, THAT 


LETTER 


ISN'T 


IN 


THE 


UORD. 


X \x/ 










X \X/ 


FIRST, UE DRAU A HEAD 








X X 










X X 
X X 


XXXXXXX 












X X 










X X 












X 










X / \ 


X 












X 










X / \ 


X (. .) 












X 










X 


X 
X 
























X 












HERE ARE THE 


LETTERS YOU 


USED: 




HERE ARE THE LETTERS YOU USED: 


X 
X 












E,0,A,I 










E,0,A,I,U,N,S,R 


X 
X 
X 












UHAT IS YOUR 

-U- 


BUESSI 


1 U 






-U- 

UHAT IS YOUR GUESS? H 

-UH 



HERE ARE THE LETTERS YOU USED: 
E 



UHAT IS YOUR 6UESS? 



SORRY, THAT LETTER ISN'T IN THE UORD. 

NOU UE DRAU A BODY. 

XXXXXXX 

X X 

X 

X (. .) 

X 

X X 

X X 

X X 

X X 

X 

X 

X 



HERE ARE THE LETTERS YOU USED: 
E,0 



UHAT IS YOUR GUESS FOR THE UORD? R 
URONG. TRY ANOTHER LETTER. 

HERE ARE THE LETTERS YOU USED: 
E,0,A,I,U 

-U- 

UHAT IS YOUR GUESS? N 



SORRY, THAT LETTER ISN'T IN THE UORD. 

NOU, LET'S DRAU THE RI6HT LEG. 

XXXXXXX 

X X 

X 

X \ (. .) / 

X \ — / 

X \ X / 

X \X/ 

X X 

X X 

X / 

X / 

X 



UHAT IS YOUR GUESS FOR THE UORD? DUH 
URONG. TRY ANOTHER LETTER. 

HERE ARE THE LETTERS YOU USED: 
E,0,A,I,U,N,S,R,H 

-UH 

UHAT IS YOUR GUESS? GUH 



SORRY, THAT LETTER ISN'T IN THE UORD. 

NEXT THE OTHER HAND. 

XXXXXXX 

X X 

X / — \ 

X \ (. .) / 

X \ — / 

X \ X / 

X w 

X X 
X X 
X / \ 
X / \ 
X 



UHAT IS YOUR GUESS? A 



SORRY, THAT LETTER ISN'T IN THE UORD. 

NEXT UE DRAU AN ARH. 

XXXXXXX 

X X 

X 

X \ (. .) 

X \ — 

X \ X 

X \x 

X X 

X X 

X 

X 

X 



HERE ARE THE LETTERS YOU USED: 
E.O.A 



UHAT IS YOUR 6UESS? I 



HERE ARE THE LETTERS YOU USED: 
E,0,A,I,U,N 

-U- 

UHAT IS YOUR GUESS? S 



SORRY, THAT LETTER ISN'T IN THE UORD. 

THIS TIHE UE DRAU THE LEFT LEG. 

XXXXXXX 

X X 

X 

X \ (. .) / 

X \ — / 

X \ X / 

X \x/ 

X X 
X X 
X / \ 
X / \ 
X 



HERE ARE THE LETTERS YOU USED: 
E,0,A,I,U,N,S 

-U- 

UHAT IS YOUR GUESS? R 



HERE ARE THE LETTERS YOU USED: 
E,0,A,I,U,N,S,R,H,GUH 

-UH 

UHAT IS YOUR GUESS? G 
YOU FOUND THE UORD! 
UANT ANOTHER UORD? NO 

IT'S BEEN FUN! BYE FOR NOU. 
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Hello 



This is a sample of one of a great 
number of conversational programs. In 
a sense, it is like a CAI program except 
that its responses are just good fun. 
Whenever a computer is exhibited at a 
convention or conference with people 
that have not used a computer before, 
the conversational programs seem to 
get the first activity. 

In this particular program, the com- 
puter dispenses advice on various 
problems such as sex, health, money, 
or job. 

David Ahl is the author of HELLO. 



HELLO 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 

HELLO. MT NAME IS CREATIVE COMPUTER. 

UHAT'S YOUR NAME? HEAN MR. MUSTARD 

HI THERE, MEAN MR. MUSTARD, ARE YOU ENJOYINO YOURSELF HERE? NO 

OH, I'M SORRY TO HEAR THAT, MEAN MR. MUSTARD, MAYDE UE CAN 
BRIGHTEN UP YOUR VISIT A BIT. 

SAY, HEAN MR. MUSTARD, I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT 

THOSE DEALING UITH GREECE. UHAT KIND OF PROBLEMS DO 

YOU HAVE CANSUER SEX, HEALTH, MONEY, OR JOB)? MONEY 

SORRY, MEAN MR. MUSTARD, I'M BROKE TOO. UHY DON'T YOU SELL 

ENCYCLOPAEDIAS OR MARRY SOMEONE RICH OR STOP EATING 

SO YOU UON'T NEED SO MUCH MONEY? 

ANY MORE PROBLEMS YOU UANT SOLVED, HEAN MR. MUSTARD? YES 

UHAT KIND (SEX, MONEY, HEALTH, JOB)? SEX 

IS YOUR PROBLEM TOO MUCH OR TOO LITTLE? TOO MUCH 

YDU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEMS! 
IF IT BOTHERS YOU, HEAN MR. MUSTARD, TAKE A COLD SHOUER. 

ANY MORE PROBLEMS YOU UANT SOLVED, MEAN MR. MUSTARD? YES 

UHAT KIND (SEX, MONEY, HEALTH, JOB)? JOB 

I CAN SYMPATHIZE UITH YOU MEAN MR. HUSTARD. I HAVE TO UORK 

VERY LONG HOURS FOR NO PAY - AND SOME OF MY BOSSES 

REALLY BEAT ON MY KEYBOARD. MY ADVICE TO YOU, MEAN MR. MUSTARD, 

IS TO OPEN A RETAIL COMPUTER STORE. IT'S GREAT FUN. 

ANY MORE PROBLEHS YOU UANT SOLVED, MEAN MR. MUSTARD? YES 

UHAT KIND (SEX, HONEY, HEALTH, JOB)? HEALTH 
MY ADVICE TO YOU MEAN MR. HUSTARD IS: 

1. TAKE TUO ASPIRIN 

2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!) 

3. DO TO BED (ALONE) 

ANY MORE PROBLEHS YOU UANT SOLVED, MEAN MR. MUSTARD? NOT REALLY 

JUST A SIMPLE 'YES' OR 'NO' PLEASE, MEAN MR. MUSTARD. 
ANY HORE PROBLEMS YOU UANT SOLVED, MEAN MR. MUSTARD? NO 



THAT UILL BE $5.00 FOR THE ABVICE, MEAN MR. MUSTARD. 
PLEASE LEAVE THE HONEY ON THE TERMINAL. 



DID YOU LEAVE THE MONEY? NO 

THAT'S HONEST, HEAN MR. MUSTARD, BUT HOU DO YOU EXPECT 
ME TO GO ON UITH MY PSYCHOLOGY STUDIES IF MY PATIENTS 
DON'T PAY THEIR BILLS? 



MORRISTOUN, NEU JERSEY" 



IS GREEK TO ME. 



I HAVE TO UORK" 



2 PRINT TAB(33);"HELL0" 

4 PRINT TAB(15);"CREATIVE COMPUTING 

4 PRINT: PRINT: PRINT 

10 PRINT "HELLO. MY NAME IS CREATIVE COMPUTER." 

20 PRINT: PRINT: INPUT "UHAT'S YOUR NANE";N*: PRINT 

30 PRINT " HI THERE, ";N»;", ARE YOU ENJOYING YOURSELF HERE": 

40 INPUT B$: PRINT 

50 IF B$="YES" THEN 70 

55 IF B»="N0" THEN 80 

60 PRINT " ";N»;", I DON'T UNDERSTAND YOUR ANSUER IS '";BJ;"'." 

65 PRINT "PLEASE ANSUER 'YES' OR 'NO'. DO YOU LIKE IT HERE";: 0OT0 40 

70 PRINT "I'M GLAD TO HEAR THAT, ";N*;".": PRINT 

75 GOTO 100 

80 PRINT "OH, I'M SORRY TO HEAR THAT, ";N*;", MAYBE UE CAN" 

85 PRINT "BRIGHTEN UP YOUR VISIT A BIT." 

100 PRINT 

105 PRINT "SAY, ";N»;\ I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT" 

110 PRINT "THOSE DEALING UITH GREECE. UHAT KIND OF PROBLEMS DO" 

120 PRINT "YOU HAVE (ANSUER SEX, HEALTH, MONEY, OR JOB)"; 

125 INPUT C* 

130 IF C$="SEX" THEN 200 

132 IF C»="HEALTH" THEN 180 

134 IF C* = "M0NEY" THEN 140 

134 IF C»="J0B" THEN 145 

138 PRINT "OH, ";N»;", YOUR ANSUER OF ";C»;" 

140 GOTO 250 

145 PRINT "I CAN SYMPATHIZE UITH YOU ";N«;". 

148 PRINT "VERY LONG HOURS FOR NO PAY — AND SOME OF MY BOSSES" 

150 PRINT "REALLY BEAT ON HY KEYBOARD. HY ADVICE TO YOU, ";N»;"," 

153 PRINT "IS TO OPEN A RETAIL COMPUTER STORE. IT'S GREAT FUN." 

155 GOTO 250 

160 PRINT "SORRY, ";N$;\ I'M BROKE TOO. UHY DON'T YOU SELL" 

162 PRINT "ENCYCLOPEDIAS OR HARRY SOHEONE RICH OR STOP EATING" 

164 PRINT "SO YOU UON'T NEED SO HUCH HONEY?" 

170 GOTO 250 

180 PRINT "HY ADVICE TO YOU ";NS;" IS:" 

185 PRINT " 1. TAKE TUO ASPIRIN" 

188 PRINT " 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)" 

190 PRINT " 3. GO TO BED (ALONE)" 

195 GOTO 250 

200 INPUT "IS YOUR PROBLEH TOO HUCH OR TOO LITTLE";D»: PRINT 

210 IF D»="T00 MUCH" THEN 220 

212 IF D*="TOO LITTLE" THEN 230 

215 PRINT "DON'T GET ALL SHOOK, ";N*;", JUST ANSUER THE QUESTION" 

217 INPUT "UITH 'TOO MUCH' OR 'TOO LITTLE'. UHICH IS IT";D«:G0TO 210 

220 PRINT "YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEHS!" 

225 PRINT "IF IT BOTHERS YOU, ";N»;", TAKE A COLD SHOUER." 

228 GOTO 250 

230 PRINT "UHY ARE YOU HERE, ";N*;"? YOU SHOULD BE" 

235 PRINT "IN TOKYO OR NEU YORK OR AMSTERDAM OR SOMEPLACE UITH SOME" 

240 PRINT "REAL ACTION." 

250 PRINT 

255 PRINT "ANY MORE PROBLEMS YOU UANT SOLVED, ";N$; 

260 INPUT E»: PRINT 

270 IF E»="YES" THEN 280 

273 IF E*="N0" THEN 300 

275 PRINT "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";N»;"." 

277 GOTO 255 

280 PRINT "UHAT KIND (SEX, HONEY, HEALTH, J0D1"; 

282 GOTO 125 

300 PRINT 

302 PRINT "THAT UILL BE »5.00 FOR THE ADVICE, ";N*;"." 

305 PRINT "PLEASE LEAVE THE HONEY ON THE TERMINAL." 

307 FOR 1=1 TO 2000: NEXT I 

310 PRINT: PRINT: PRINT 

315 PRINT "DID YOU LEAVE THE MONEY"; 

320 INPUT G»: PRINT 

325 IF G»="YES" THEN 350 

330 IF G»="NO" THEN 370 

335 PRINT "YOUR ANSUER OF "";G*;"' CONFUSES ME, ";N»;"." 

340 PRINT "PLEASE RESPOND UITH 'YES' OR 'NO'.": GOTO 315 

350 PRINT "HEY, ";N»;"??? YOU LEFT NO MONEY AT ALL!" 

355 PRINT "YOU ARE CHEATING ME OUT OF HY HARD-EARNED LIVING." 

360 PRINT "RIP OFF, ";N»;"***************************«*******»*" 

365 GOTO 390 

370 PRINT "THAT'S HONEST, ";N»;", BUT HOU BO YOU EXPECT" 

375 PRINT "ME TO GO ON UITH MY PSYCHOLOGY STUDIES IF MY PATIENTS" 

380 PRINT "DON'T PAY THEIR BILLS?" 

385 PRINT: PRINT: PRINT "NOU LET HE TALK TO SOMEONE ELSE." 

390 PRINT "NICE MEETING YOU, ";N»;", HAVE A NICE DAY." 

400 GOTD 6 

799 END 
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Hexapawn 



Gardner's 
column in 
Scientific 
described 



The game of Hexapawn and a 
method to learn a strategy for playing 
the game was described in Martin 
"Mathematical Games" 
the March 1962 issue of 
American. The method 
in the article was for a 
hypothetical learning machine com- 
posed of match boxes and colored 
beads. This has been generalized in the 
program HEX. 

The program learns by elimination of 
bad moves. All positions encountered 
by the program and acceptable moves 
from them are stored in the array P$ (I). 
When the program encounters an 
unfamiliar position, the position and all 
legal moves from it are added to the list. 
If the program loses a game, it erases 
the move that led to defeat. If it hits a 
position from which all moves have 
been deleted (they all led to defeat), it 
erases the move that got it there and 
resigns. Eventually, the program learns 
to play extremely well and, indeed, is 
unbeatable. The learning strategy 
could be adopted to other simple 
games with a finite number of moves 
(tic-tac-toe, small board checkers, or 
other chess-based games). 

The original version of this program 
was written by R.A. Kaapke. It was 
subsequently modified by Jeff Dalton 
and finally by Steve North of Creative 
Computing. 



HEXAPAUN 
CREATIVE COHPUTING MORRISTOUN, NEU JERSEY 

INSTRUCTIONS (Y-H)T YES 

THIS PROBRAH PLAYS THE GAHE OF HEXAPAUH. 
HEXAPAUN IS PLAYED UITH CHESS PAUNS OH A 3 BY 3 BOARD. 
THE PAUHS ARE HOVED AS IH CHESS - ONE SPACE FORUARD TO 
AH EHPTY SPACE OR ONE SPACE FORUARD AHD DIAOONALLY TO 
CAPTURE AH OPPOSING HAN. ON THE BOARD, YOUR PAUNS 
ARE '0', THE COHPUTER'S PAUNS ARE 'X', AND EHPTY 
SQUARES ARE '.'. TO ENTER A HOVE, TYPE THE NUHBER OF 
THE SQUARE YOU ARE HOVING FROH, F0LLOUED BY THE HUHBER 
OF THE SQUARE YOU UILL HOVE TO. THE NUHBERS HUST BE 
SEPARATED BY A COHHA. 

THE COHPUTER STARTS A SERIES OF GAMES KNOUINB ONLY UHEN 
THE GAHE IS UON (A DRAU IS IMPOSSIBLE) AND HOU TO HOVE. 
IT HAS NO STRATEGY AT FIRST AND JUST HOVES RANDOMLY. 
HOUEVER, IT LEARNS FROH EACH GAME. THUS, UINHINO BECOHES 
MORE AND HORE DIFFICULT. ALSO, TO HELP OFFSET YOUR 
INITIAL ADVAHTAGE, YOU UILL HOT BE TOLD HOU TO UIN THE 
GAME BUT HUST LEARN THIS BY PLAYING. 



THE NUHBERING OF THE BOARD IS AS FOLLOUS: 
123 
456 
78? 

FOR EXAHPLE, TO MOVE YOUR RIGHTHOST PAUN FORUARD, 
YOU UOULD TYPE 9,4 IN RESPONSE TO THE QUESTION 
'YOUR HOVE T'. SINCE I'M A GOOD SPORT, YOU'LL ALUAYS 
GO FIRST. 



XXX 




XXX 


000 




000 


YOUR HOVET 8,3 




YOUR M0VET 8,5 


XXX 
.0. 
0.0 




XXX 
.0. 
0.0 


I MOVE FROM 1 TO 


4 


I MOVE FROM 3 TO 4 


.XX 
XO. 
0.0 




XX. 
.OX 
0.0 


YOUR M0VET 5,3 




YOUR MOVE? 5,1 


.X0 
X.. 
0.0 




OX. 
..X 
0.0 


YOU UIN. 

I HAVE UON AND YOU t OUT OF ' 


YOU UIN. 
I GAMES. I HAVE UON 1 AND YOU 


XXX 




XXX 


000 




000 


YOUR HOVET 8,3 




YOUR HOVET 9,4 


XXX 
.0. 
0.0 




XXX 
..0 
00. 


I MOVE FROM t TO 


5 


I MOVE FROM 2 TO 4 


.XX 
.X. 

0.0 




X.X 
..X 

00. 


YOUR M0VET 7,3 




YOUR HOVET 8,5 


.XX 
.0. 
..0 




X.X 
.OX 
0.. 


I HOVE FROM 3 TO 


4 


I MOVE FROM 4 TO 9 


.X. 
.OX 
..0 




X.X 
.0. 
O.X 



YOU CAN'T MOVE, SO I UIN. 



I UIN. 



I HAVE UON 1 AND YOU t OUT OF 2 OAMES. I HAVE UON 2 AND YOU 2 OUT OF 4 GAMES. 

XXX 



000 



YOUR HOVET 
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1 PRINT TAB (32) '"HEXAPAUN* 

2 PRINT TAB< 15); "CREATIVE COHPUTIN0 HORRISTOUN, NEU JERSEY" 

3 PRINT:PRINT:PRINT 

4 REH HEXAPAUN: INTERPRETATION OF HEXAPAUN GAHE AS PRESENTED IN 

5 REN HART1N GARDNER'S "THE UNEXPECTED HANGING AMD OTHER HATHEHATIC- 

4 REN AL DIVERSIONS", CHAPTER EIGHT: A HATCHBOX GANE-LEARHIN6 HACHINE 

7 REH ORIGINAL VERSION FOR H-P TIHESHARE SYSTEH BY R.A. KAAPKE 5/5/74 

8 REH INSTRUCTIONS BY JEFF DALTON 

9 REH CONVERSION TO NITS BASIC BY STEVE NORTH 

10 DIH B(l9 l 9>,H<l? f 4>,3<9),F«(3> 
15 U=0: L»0 

20 DEF FNR(X)=-3*<X"1 >-<X=3)-4»(X=6)-6»<X"4>-7*<X«?)-9*<X=7>+FNS<X> 

25 DEF FNS(X>»-X»<X«2 OR X=5 OR X»8) 

30 DEF FNH(Y)=Y-IHT(Y/10)»10 

35 Pf="X.O" 

40 FOR 1 = 1 TO 19; FOR J=1 TO 9: READ BU,J>! NEXT J: NEXT I 

45 FOR 1=1 TO 19: FOR J=l TO 4: READ Nil, J): NEXT J: NEXT I 

50 PRINT "INSTRUCTIONS (Y-H)"J 

40 INPUT At 

70 A»*LEFT«(A«,1> 

80 IF A»»"Y" THEN 2000 

90 IF A*<>"N" THEN 50 

100 X«0: Y-0 

111 S(4)-0: S(5)=0: S(4>»0 

112 S(1 >— 1 s S<2>=-1: S(3)— 1 

113 S(7)-1: S(8)>1: S(9)-1 
115 GOSUB 1000 

120 PRINT "YOUR HOVE"; 

121 INPUT H1,H2 

122 IF HI=INT<N1>ANDN2=INT(M2>ANDM1>OANDM1<10ANDM2>0ANDH2<1OTHEN130 

123 PRINT "IUE6AL CO-ORDINATES." 

124 GOTO 120 

130 IF S(H1)«1 THEN 150 

140 PRINT "ILLEGAL HOVE.": GOTO 120 

150 IF S(H2)=1 THEH 140 

UO IF H2-HIO-3 AND S(H2K>-1 THEN 140 

170 IF H2>H1 THEN 140 

180 IF H2-H1=-3 AND (S(H2)OOI THEN 140 

185 IF H2-HK-4 THEN 140 

186 IF H1-7 AND H2«3 THEN 140 
190 S(H1)»0 

200 S(H2)»1 

205 GOSUB 1000 

210 IF S<1)-1 OR S(2>*1 OR S<3)=1 THEN 820 

220 FOR I«1 TO 9 

221 IF S(I)=-| THEN 230 

222 NEXT I 

223 GOTO 820 
230 FOR I»1 TO 9 

240 IF S(IX>-1 THEN 330 

250 IF S(I*3)=0 THEN 350 

260 IF FNRU) = I THEN 320 

270 IF I>3 THEN 300 

280 IF S(5)-1 THEN 350 

290 GOTO 330 

300 IF S<8>=1 THEN 350 

310 GOTO 330 

320 IF S(I*2)=1 OR SU+4)*I THEN 350 

330 NEXT I 

340 GOTO G20 

350 FOR 1*1 TO 19 

360 FOR J=1 TO 3 

370 FOR K«3 TO 1 STEP -1 

380 T<<J-1)»3+K)=B(I,<J-1>»3+4-K> 

390 HEXT K 

400 NEXT J 

410 FOR J«1 TO 9 

420 IF SUK>B<1,J> THEN 440 

430 NEXT J 

440 R=0 

450 GOTO 540 

460 FOR J»1 TO 9 

470 IF S(J)OT(J) THEN 510 

480 NEXT J 

490 R=1 

500 GOTO 540 

510 NEXT I 

511 REHEHBER THE TERHINATION OF THIS LOOP IS IHPOSSIBLE 

512 PRIHT "ILLEGAL BOARD PATTERN." 
530 STOP 

540 X=I 

550 FOR 1=1 TO 4 

560 IF H(X,I)O0 THEN 400 

570 NEXT I 

580 PRINT "I RESIGN." 

590 GOTO 820 



";STR$(INT<H(X,Y>/10)>;" TO ";STR$(FNM<H(X,Y>> ) 



U ;STR«(FNR(INT(H(X,Y)/10)));" TO 



-1 THEN 870 



400 Y=INT(RND(1)*4H> 

401 IF H(X,Y)=0 THEN 600 
410 IF ROO THEN 430 
420 PRINT "I HOVE FROH 

422 S(INT(H(X,Y)/10))=0 

423 S(FNH(H<X,Y))>=-1 

424 GOTO 640 
630 PRINT "I HOVE FROH 

431 PRINT STRMFNR<FNH(H(X,Y>)>> 

432 S<FNR(INT<H(X,Y)/10M>=0 

433 S(FNR(FNH(H(X,Y)>))=-1 

440 GOSUB 1000 

441 IF S(7> — 1 OR S(8)"-1 OR S<9> = 
450 FOR 1=1 TO 9 
460 IF SUM THEN 490 
470 NEXT I 
480 GOTO 870 
490 FOR I»1 TO 9 
700 IF S(IK>1 THEN 790 
710 IF S(I-3)«0 THEN 120 
720 IF FNR(I)=I THEN 780 
730 IF I<7 THEN 740 
740 IF S(5)=-1 THEN 120 
750 GOTO 790 
760 IF S(2>=-1 THEN 120 
770 GOTO 790 

780 IF S(I-2>=-1 OR S(I-4)=-1 THEN 120 
790 NEXT I 

800 PRINT "YOU CAN'T NOVE, SO "; 
810 60T0 870 
820 PRINT "YOU UIN." 
830 H(X,Y>=0 
840 L«L+1 

850 PRINT "I HAVE UON";U;"AND YOU";L;"OUT OF"JL+Uj"GAHES. 

851 PRINT 
860 GOTO 100 
870 PRINT "I UIN." 
880 U«U+1 
890 GOTO 850 

900 DATA -1,-1,-1,1,0,0,0,1,1,-1,-1 
905 DATA -1,0,-1,-1,1,0,0,0,1,0,-1, 
910 DATA -1,0,-1,1,1,0,0,1,0,-1,-1, 
915 DATA 0,-1,-1,0,-1,1,1,0,0,0,- 
920 DATA -1,0,-1,-1,0,1,0,1,0,0,-1, 
925 DATA 0,-1,-1,0,1,0,1,0,0,-1,0,-1,1,0,0,0,0,1 
930 DATA 0,0,-1,-1,-1,1,0,0,0,-1,0,0,1,1,1,0,0,0 
935 DATA 0,-1,0,-1,1,1,0,0,0,-1,0,0,-1,-1,1,0,0,0 
940 DATA 0,0,-1,-1,1,0,0,0,0,0,-1,0,1,-1,0,0,0,0 
945 DATA -1,0,0,-1,1,0,0,0,0 

950 DATA 24,25,36,0,14,15,34,0,15,35,34,47,34,58,59,0 

955 DATA 15,35,34,0,24,25,24,0,24,57,58,0 

940 DATA 26,35,0,0,47,48,0,0,35,36,0,0,35,36,0,0 

965 DATA 36,0,0,0,47,58,0,0,15,0,0,0 

970 DATA 26,47,0,0,47,58,0,0,35,36,47,0,28,58,0,0,15,47,0,0 

1000 PRINT 

1010 FOR 1=1 TO 3 

1020 FOR J=1 TO 3 

1030 PRINT TAB(10);HID«(P»,S((I-1)*3+J)+2,1); 

1040 NEXT J 

1050 PRINT 

1060 NEXT I 

1070 PRINT 

1080 RETURN 

2000 PRIHT: PRINT "THIS PROORAH PLAYS THE GAHE OF HEXAPAUN." 

2010 PRINT "HEXAPAUN IS PLAYED UITH CHESS PAUNS ON A 3 BY 3 BOARD." 

2020 PRINT "THE PAUNS ARE HOVED AS IN CHESS - ONE SPACE FORUARD TO" 

2030 PRINT "AN EHPTY SPACE OR ONE SPACE FORUARD AND DIAGONALLY TO" 

2040 PRINT "CAPTURE AN OPPOSING HAN. ON THE BOARD, YOUR PAUNS" 

2050 PRINT "ARE '0', THE COHPUTER'S PAUNS ARE 'X', AND EMPTY " 

2060 PRINT "SQUARES ARE '.'. TO ENTER A HOVE, TYPE THE NUMBER OF" 

2070 PRINT "THE SOUARE YOU ARE HOVING FROH, FOLLOUED BY THE NUHBER" 

2080 PRINT "OF THE SQUARE YOU UILL HOVE TO. THE NUHBERS HUST BE" 

2090 PRINT "SEPARATED BY A COHHA-": PRINT 

2100 PRINT "THE COHPUTER STARTS A SERIES OF GAHES KNOUING ONLY UHEN" 

2110 PRINT "IT HAS NO STRATEGY AT FIRST AND JUST HOVES RANDOHLY." 

2120 PRINT "HOUEVER, IT LEARNS FROH EACH GAHE. THUS, IT BECOHES" 

2130 PRINT "MORE AND HORE DIFFICULT. ALSO, TO HELP OFFSET YOUR" 

2140 PRINT "INITIAL ADVANTAGE, YOU UILL NOT BE TOLD HOU TO UIN THE" 

2150 PRINT "GAHE BUT HU5T LEARN THIS BY PLAYING." 

2160 PRINT: PRINT "THE NUHBERING OF THE BOARD IS AS FOLLOUS:" 

2170 PRINT TAB(101;"123": PRINT TAB(10);"456": PRINT TABdO) ;"7B9" 

2180 PRINT: PRINT "FOR EXAHPLE, TO HOVE YOUR RIGHTMOST PAUN FORUARD," 

2190 PRINT "YOU UOULD TYPE 9,6 IN RESPONSE TO THE QUESTION" 

2200 PRINT "'YOUR HOVE ?'. SINCE I'H A GOOD SPORT, YOU'LL ALUAYS" 

2210 PRINT "GO FIRST.": PRINT 

2220 GOTO 100 

9999 END 



-1,-1,0,1,0,1,0,1 

1,-1,1,-1,0,0,0,1 

1,0,1,0,1,0,0,1 

1,-1,-1,1,1,1,0,0 

1,-1,0,1,0,0,0,1 
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Hi-Lo 



This game is an adaptation of the 
game GUESS; however, instead of just 
guessing a number between 1 and 100, 
in this game you win dollars when you 
guess the number. The directions, in 
the words of the author of the game, are 
as follows: 

1. There is an amount of money, 
between one and one hundred 
dollars, in the "HI-LO" jackpot. 

2. You will have six chances in which to 
guess the amount of money in the 
jackpot. 

3. After each guess, the computer will 
tell whether the guess was too high 
or too low. 

4. If the correct amount of money is not 
guessed after six chances, the com- 
puter will print the amount in the 
jackpot. 

5. If the correct amount of money is 
guessed within the six chance limit, 
the computer will register this 
amount. 

6. After each sequence of guesses, you 
have the choice of playing again or 
ending the program. If a new game is 
played, a new amount of money will 
constitute the jackpot. 

7. If you win more than once, then your 
earnings are totalled. 

The author is Dean Altman of Fort 
Worth, Texas. 



10 PRINT TAB<34);"HI LQ" 

20 PRINT TAB(15);"CREATIVE CQHPUTING H0RRIST0UN, NEU JERSEY" 

30 PR1NT:PRINT:PRINT 

100 PRINT "THIS IS THE GAHE OF HI L0.":PRINT 

110 PRINT "»0U UILL HAVE 4 TRIES TO 0UESS THE AHOUNT OF MONEY IN THE" 

120 PRINT "HI 10 JACKPOT, UHICH IS BETUEEN 1 AND 100 DOLLARS. IF YOU" 

130 PRINT "GUESS THE AHOUNT, YOU UIN ALL THE HONEY IN THE JACKPOT!" 

140 PRINT "THEN YOU 6ET ANOTHER CHANCE TO UIN MORE HONEY. H0UEVER," 

150 PRINT "IF YOU DO NOT OUESS THE AHOUNT, THE GAHE ENDS.":PRINT 

160 R=0 

170 B=0:PRINT 

180 Y=INT(100»RND(1)> 

200 PRINT "YOUR GUESS"; 

210 INPUT A 

220 B=B+1 

230 IF A=Y THEN 300 

240 IF A>Y THEN 270 

250 PRINT "YOUR GUESS IS TOO L0U":BQT0 280 

270 PRINT "YOUR OUESS IS TOO HIGH" 

280 PRINT:IF B<4 THEN 200 

2?0 PRINT "YOU BLEU IT. ..TOO BAD. ..THE NUHBER UAS"jY 

295 R=0:60T0 350 

300 PRINT "GOT XT) 1 1 1 1 1 1 1 1 1 YOU UIN";Y;"D0LLARS." 

310 R*RtY 

320 PRINT "YOUR TOTAL UINNINOS ARE NOU";R;"D0LLARS." 

350 PRINT:PRINT "PLAY AGAIN (YES OR N0>"; 

340 INPUT A»:IF A*="YES" THEN 170 

380 PRINTrPRINT "SO LONG. HOPE YOU ENJOYED YOURSELF!!!" 

3?0 END 




HI L0 
CREATIVE C0HPUTING H0RRIST0UN, NEU JERSEY 

THIS IS THE GAHE OF HI L0. 

YOU UILL HAVE 6 TRIES TO 6UESS THE AHOUNT OF HONEY IN THE 
HI L0 JACKPOT, UHICH IS BETUEEN 1 AND 100 DOLLARS. IF YOU 
GUESS THE AHOUNT, YOU UIN ALL THE HONEY IN THE JACKPOT! 
THEN YOU GET ANOTHER CHANCE TO UIN H0RE HONEY. H0UEVER, 
IF YOU DO NOT OUESS THE AHOUNT, THE GAHE ENDS. 

YOUR GUESS? 50 

YOUR GUESS IS TOO HIGH 

YOUR GUESST 25 

YOUR GUESS IS TOO HIGH 

YOUR GUESST 12 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 4 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 3 

YOUR GUESS IS TOO LOU 

YOUR GUESS? 4 

GOT IT!! I III 1 1! I YOU UIN 4 DOLLARS. 

YOUR TOTAL UINNINGS ARE N0U 4 DOLLARS. 

PLAY AGAIN (YES OR NO)? YES 

YOUR OUESS? 50 

YOUR GUESS IS TOO LOU 

YOUR GUESS? 75 

YOUR OUESS IS TOO HIOH 

YOUR GUESS? 42 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 57 

GOT IT! !!!!!!!! ! YOU UIN 57 DOLLARS. 

YOUR TOTAL UINNINGS ARE NOU 41 DOLLARS. 

PLAY AGAIN (YES OR NO)? NO 

SO LONG. HOPE YOU ENJOYED YOURSELF!!! 
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High l-Q 



This is a computerized version of an old 
European solitaire game of logic. The 
game starts with a pegboard shaped like a 
cross having pegs in every hole but the 
center. The object is to remove all 32 pegs, 
or as many as possible, by jumping into an 
empty hole, then removing the jumped 

peg- 
There are several different winning 

strategies for playing and, of course, each 

strategy can be played eight different ways 

on the board. Can you find a consistent 

winner? 
Charles Lund wrote this game while at 

The American School in The Hague, 

Netherlands. 



CREATIVE 


CQHPUTING 


HORRIST0UN, NEU JERSEY 


HERE 


IS 


THE BOARD: 












1 
13 


14 


! 
15 










1 
22 


23 


1 
24 






1 
2? 


I 
30 


1 
31 


32 


1 
33 


1. 
34 


1 
35 


1 
38 


1 
3? 


1 
40 


41 


1 
42 


1 
43 


1 
44 


! 
47 


1 
48 


( 
4V 

I 
58 

! 
67 


50 
5? 
68 


! 
51 

1 
iSO 

I 
69 


! 
52 


j 
53 



TO SAVE TYPING TIHE, A COHPRESSED VERSION OF THE GAHE BOARD 
URL BE USED DURING PLAY. REFER TO THE ABOVE ONE FOR PEG 
NUHBERS. OK, LET'S BEGIN. 



! ! 
I ! 
I I 



I I 
! t 
! I 



HOVE UHICH PIECE? 59 
TO UHERET 41 



I I 
I ! 
! I 



I I 
I I 
! I 



HOVE UHICH PIECE? 32 
TO UHERE? 50 



! I I 

I I I 

I ! I 

! I ! 



I I ! 
! I ! 



I I I I I I I 
I I 
I I I 

HOVE UHICH PIECE? 43 
TO UHERE? 41 

I I 

I I 

I I ! ! ! I 

I I I ! !' 

I ! I I I I I 

I 

1 I 

MOVE UHICH PIECE? 34 
TO UHERET 32 



! ! 
! ! 
I ! 



HOVE UHICH PIECE? 31 
TO UHERE? 33 

I ! ! 

I ! ! 

I ! ! ! 

I I I ! ! 

! Ml ! ! I ! 

! ! 

I ! ! 

HOVE UHICH PIECE? 41 

TO UHERET 43 

ILLEGAL HOVE, TRY AGAIN. 



HOVE UHICH PIECE? 40 
TO UHERE? 42 

I ! I 

! I ! 

! I I I 

I I I I 

I I I ! I I I 

I I 

I I I 

HOVE UHICH PIECE? 14 
TO UHERE? 32 



I I 
I 





I O 

I ! O ! I I 

I t I I 

I I I I I I I 

I I 

I ! I 

HOVE UHICH PIECE? 13 
TO UHERE? 31 



I 

! 

I I I ! I I 

I I I I 

I I I I I I I 

1 I 
I I I 

HOVE UHICH PIECE? 32 
TO UHERET 34 

O I 

I 

I I I I I 

I I I O I 

! I I I I ! I 

1 I 
I I ! 

HOVE UHICH PIECE? 35 
TO UHERE? 33 

O I 

! 

! ! ! ! O O 

I ! I I 

I I I I I ! I 

1 O I 
1 I I 

HOVE UHICH PIECE? 30 
TO UHERE? 32 

! 

! 

! ! 10 

I ! I ! 

I ! ! ! I I I 

1 I 
! ' I 
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HOVE UHICH PIECE? SO 
TO UHERE? 40 
ILLEGAL MOVE, TRY AGAIN. 
MOVE UHICH PIECE? 58 
TO UHERE? 40 







1 

! ! 
! ! ! 
! ! ! I ! ! 

1 

1 ! ! 




MOVE UHICH PIECE? 
TO UHERE? 49 


51 






! 
1 1 
1 1 1 

i i I o a i i 

1 , 

1 1 1 




MOVE UHICH PIECE? 
TO UHERE? SO 


48 






1 

! 1 

1 1 1 

1 ! 1 1 





I 

1 I I 



MOVE UHICH PIECE? 53 
TO UHERE? 51 



! 

! I 

I I 1 
10 0! 100 

a ! 

1 ! ! 

MOVE UHICH PIECE? 42 
TO UHERE? 24 



1 I 

1 

I I 

1 I I 

t 

1 I I 

HOVE UHICH PIECE? 60 
TO UHERE? 42 



! I 

10 

! ! ! 

! ! 



! I ! 

THE 6AHE IS OVER. 

YOU HAD 11 PIECES REMAINIHO. 

PLAY AGAIN (YES OR NO)? NO 

SO LONG FOR NOU. 



1 PRINT TAB(33);"H-I-Q" 

2 PRINT TAB<15);"CREATIVE COMPUTING 



HORRISTOUN, NEU JERSEY" 



3 PRINT:PRINT: 


PR» 


T 








4 BIH B(70),T<9,9 










5 PRINT "HERE 


IS THE BOARB:' 


: PRINT 




6 PRINT " 




I 


1 


1" 




7 PRINT " 




13 


14 


15"! PRINT 




8 PRINT " 




1 


1 


1" 




9 PRINT " 




22 


23 


24": PRINT 




10 PRINT "1 


1 






1 ! 


1" 


11 PRINT "29 


30 


31 


32 


33 34 


35" 


12 PRINT "1 


1 






! ! 


!" 


13 PRINT "38 


39 


40 


41 


42 43 


44" 


14 PRINT "1 


1 






1 1 


I" 


15 PRINT "47 


48 


49 


50 


51 52 


53" 


U PRINT " 








■ M 




17 PRINT " 




58 


59 


60": PRINT 




18 PRINT " 








I II 




19 PRINT " 




67 


68 


69": PRINT 





PRINT 



PRINT 



PRINT 



20 PRINT "TO SAVE TYPING TIME, A COHPRESSEB VERSION OF THE GAME BOARD" 
22 PRINT "UILL BE USED BURINS PLAY. REFER TO THE ABOVE ONE FOR PEO" 
24 PRINT "NUMBERS. OK, LET'S BEGIN." 

28 REH ••* SET UP BOARD 

29 FOR R=1 TO 9 

30 FOR C«1 TO 9 

31 IF (R-4)»(R-5)»(R-6)=0 THEN 40 

32 IF (C-4)*(C-5)«(C-6)=0 THEN 40 

35 T(R,C)=-5 

36 60T0 50 

40 IF (R-1)»(C-1)»(R-9)»(C-9)=0 THEN 35 

42 T(R,C)=5 

50 NEXT C 

60 NEXT R 

65 T(5,5>*0: GOSUB 500 

70 REH •«» INPUT HOVE AND CHECK ON LEGALITY 

75 FOR U=1 TO 33 

77 REAB H 

79 DATA 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41 

81 DATA 42,43,44,47,48,49,50,51,52,53,58,59,60,67,68,69 

83 B(H)=-7: NEXT U 

86 B(41)=-3 

100 INPUT "MOVE UHICH PIECE";Z 

110 IF BIZ1—7 THEN 140 

120 PRINT "ILLEGAL MOVE, IRY AGAIN...": GOTO 100 



140 INPUT "TO UHERE";P 

150 IF B(P!=0 THEN 120 

153 IF B(P>=-7 THEN 120 

156 IF Z=P THEN 100 

HO IF ((Z*P)/2)=INT((Z+P)/2) THEN 180 

170 GOTO 120 

1B0 IF (ABS(Z-P)-2)*(ABS(Z-P)-18)O0 THEN 120 

170 GOSUB 1000 

200 GOSUB 500 

210 60SUB 1500 

220 GOTO 100 

500 REH ««* PRINT BOARD 

510 FOR X=1 TO 9 

520 FOR Y=1 TO 9 

525 IF (X-1)*(X-9)*(Y-1>*(Y-9>=0 THEN 550 

530 IF <X-4)*(X-5)*(X-6>»0 THEN 570 

540 IF (Y-4)»(Y-5)«(Y-6)«0 THEN 570 

550 REH 

560 GOTO 610 

570 IF T(X,Y)<>5 THEN 600 

5B0 PRINT TAB(Y*2);"I"; 

590 GOTO 610 

600 PRINT TAB(Y»2);"0"; 

610 REH 

615 NEXT Y 

620 PRINT 

630 NEXT X 

640 RETURN 

1000 REN *** UPDATE BOARD 

1005 C»1: FOR X»1 TO 9 

1020 FOR Y=1 TO 9 

1030 IF COZ THEN 1220 

1040 IF C+20P THEN 1080 

1045 IF T(X,Y+I)"0 THEN 120 

1050 T(X,Y*2)=5 

1060 T(X,Y+1>=0: B(C+1)=-3 

1070 GOTO 1200 

1080 IF C+180P THEN 1130 

1085 IF T<X+1,Y)=0 THEN 120 

109O T<X*2,Y>=5: T(X+1,Y)»0: B(C+9)=-3 

1120 GOTO 1200 

1130 IF C-20P THEN 1170 

1135 IF T(X,Y-1)=0 THEN 120 

1140 T(X,Y-2)=5: T(X,Y-1)«0: B(C-1)=-3 

1160 60T0 1200 

1170 IF C-1BOP THEN 1220 

1175 IF T(X-1,Y)»0 THEN 120 

1180 T(X-2,Y)«5: T(X-1,Y)»0: B(C-9)«-3 

1200 B(Z>— 3: B(P>— 7 

1210 T(X,Y)«0: BOTO 1240 

1220 C»Ctl 

1225 NEXT Y 

1230 NEXT X 

1240 RETURN 

1500 REH*** CHECK IF 6AME IS OVER 

1505 F=0 

1510 FOR R=2 TO 8 

1520 FOR C=2 TO 8 

1530 IF T(R,C)<>5 THEN 1580 

1535 F=F+1 

1540 FOR A=R-1 TO Rtl 

1345 T=0 

1550 FOR B=C-1 TO C+1 

1560 T=TtT(A,B) 

1561 NEXT B 

1564 IF TO10 THEN 1567 

1565 IF T(A,C)O0 THEN 1630 

1567 NEXT A 

1568 FOR X»C-1 TO C*1 

1569 T=0 

1570 FOR Y»R-1 TO R+1 

1571 T»T+T(Y,X) 

1572 NEXT Y 

1573 IF TO10 THEN 1575 

1574 IF T(R,X)<>0 THEN 1630 

1575 NEXT X 
1580 NEXT C 
1590 NEXT R 

1600 REH *•* GAHE IS OVER 
1605 PRINT "THE 6AHE IS OVER." 

1610 PRINT "YOU HAB";F;"PIECES REMAINING." 

1611 IF FOI THEN 1615 

1612 PRINT "BRAVO I YOU HADE A PERFECT SCORE!" 

1613 PRINT "SAVE THIS PAPER AS A RECORD OF YOUR ACCOMPLISHMENT!" 
1615 PRINT: INPUT "PLAY AGAIN (YES OR NO)"JA» 

1617 IF A»="HO" THEN 2000 

1618 RESTORE: GOTO 28 
1620 STOP 

1630 RETURN 

2000 PRINT: PRINT "SO LONG FOR NOU.": PRINT 

2010 END 
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Hockey 



This is a simulation of a ice hockey 
game. The computer, in this case, 
moderates and referees the play 
between two human opponents. Of 
course, one person could play both 
sides. 

The program asks for team names, 
player names, and even the name of the 
referee. Four types of shot are per- 
mitted and a shot may be aimed at one 
of four areas. You are also asked about 
passing. The game is very comprehen- 
sive with lots of action, face offs, 
blocks, passes, 4 on 2 situations, and 
so on. Unfortunately there are no 
penalties. 

The original author is Robert 
Puopolo; modifications by Steve North 
of Creative Computing. 

HOCKEY 
CREATIVE COHPUTIND HORRISTOUN, NEU JERSEY 



UOULD YOU LIKE THE INSTRUCTIONS? YES 



THIS IS A 

QUESTION 

PASS 

SHOT 



AREA 



SIHULATED HOCKEY GAHE. 
RESPONSE 

TYPE IN THE NUMBER OF PASSES YOU UOULD 
LIKE TO HAKE, FROM TO 3. 
TYPE THE NUMBER CORRESPONDING TO THE SHOT 
YOU UANT TO HAKE. ENTER: 

1 FOR A SLAPSHOT 

2 FOR A URISTSHOT 

3 FOR A BACKHAND 

4 FOR A SNAP SHOT 

TYPE IN THE NUHBER CORRESPONDING TO 
THE AREA YOU ARE AIMING AT. ENTER: 

1 FOR UPPER LEFT HAND CORNER 

2 FOR UPPER RIGHT HAND CORNER 

3 FOR LOUER LEFT HAND CORNER 

4 FOR LOUER RIGHT HAND CORNER 



AT THE START OF THE GAHE, YOU UILL BE ASKED FOR THE NAMES 

OF YOUR PLAYERS. THEY ARE ENTERED IN THE ORDER: 

LEFT UING, CENTER, RIGHT UINO, LEFT DEFENSE, 

RIGHT DEFENSE, GOALKEEPER. ANY OTHER INPUT REQUIRED UILL 

HAVE EXPLANATORY INSTRUCTIONS. 

ENTER THE TUO TEAMS? BIG GUYS, LITTLE GUYS 

ENTER THE NUMBER OF MINUTES IN A GAME? 15 

UOULD THE BIG GUYS COACH ENTER HIS TEAM 

PLAYER 1 ? IBM 
PLAYER 2 ? DEC 
PLAYER 3 ? BURROUGHS 
PLAYER 4 ? HONEYUELL 
PLAYER 5 T DATA GENERAL 
PLAYER 4 ? AMDAHL 

UOULD THE LITTLE GUYS COACH DO THE SAME 



PLAYER 1 ? 
PLAYER 2 ? 
PLAYER 3 ? 
PLAYER 4 ? 



PLAYER 
PLAYER 



HITS 

IMSAI 

SUTPC 

CROHEMCO 

PTCO 

TDL 



INPUT THE REFEREE FOR THIS OAME? FEDERAL GVT 



BIG GUYS STARTING LINEUP 
IBM 
DEC 

BURROUGHS 
HONEYUELL 
DATA GENERAL 
AMDAHL 

LITTLE GUYS STARTING LINEUP 
HITS 
IMSAI 
SUTPC 
CROHEMCO 
PTCO 
TDL 

UE'RE READY FOR TONIGHTS OPENING FACE-OFF 

FEDERAL GVT UILL DROP THE PUCK BETUEEN DEC AND IMSAI 

BIG GUYS HAS CONTROL OF THE PUCK 

PASS? 2 

BURROUGHS DIVES TO A STREAKING HONEYUELL 

IBH COMES DOUN ON PTCO AND CROHEMCO 

SHOT? 1 

IBM LET'S A BIG SLAP SHOT GO!! 

AREA? 4 

UHAT A SPECTACULAR GLOVE SAVE BY TDL 

AND TDL GOLFS IT INTO THE CROUD 

AND UE'RE READY FOR THE FACE-OFF 

LITTLE GUYS HAS CONTROL 

PASS? 3 

A ' 3 ON 2 ' UITH A ' TRAILER ' 
HITS GIVES TO PTCO UHO SHUFFLES IT OFF TO 
IMSAI UHO FIRES A UING TO UING PASS TO 
SUTPC AS HE CUTS IN ALONE!) 
SHOT? 2 

SUTPC RIPS A URIST SHOT OFF 
AREA? 3 

GLOVE SAVE AHDAHL AND HE HANGS ON 
AND UE'RE READY FOR THE FACE-OFF 
BIG GUYS HAS CONTROL OF THE PUCK 
PASS? 1 

HONEYUELL LEADS DATA GENERAL UITH A PERFECT PASS 
DATA GENERAL CUTTING IN!!! 
SHOT? 2 

DATA GENERAL RIPS A URIST SHOT OFF 
AREA? 1 

UHISTLES ONE OVER THE HEAD OF TDL 
LITTLE GUYS HAS CONTROL 
PASS? 2 

IT'S A ' 3 ON 2 ' 

ONLY HONEYUELL AND DATA GENERAL ARE BACK 
HITS GIVES OFF TO CROHEMCO 
CROHEMCO DROPS TO PTCO 
SHOT? 3 

PTCO GETS A BACKHAND OFF 
AREA? 1 

SKATE SAVE BY AMDAHL 

AMDAHL UHACKS THE LOOSE PUCK INTO THE STANDS 
AND UE'RE READY FOR THE FACE-OFF 
LITTLE GUYS HAS CONTROL 
PASS?. 2 

ITS A ' 3 ON 2 ' 

ONLY HONEYUELL AND DATA GENERAL ARE BACK 
IMSAI GIVES OFF TO PTCO 
PTCO DROPS TO HITS 
SHOT? 4 

HITS SNAPS OFF A SNAP SHOT 
AREA? 1 
SCORE LITTLE GUYS 

SCORE: LITTLE GUYS: 1 BIG GUYS: 

GOAL SCORED BY: HITS ASSISTED BY: PTCO AND IMSAI 

AND UE'RE READY FOR THE FACE-OFF 
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2 PRINT TAB(33);"HQCKEY" 

4 PRINT TftB<15>;"CREftTIUE COMPUTING HURRISTOUN, NEU JERSEY" 

iS PRINT:PRINT:PRINT 

10 REM ROBERT PUOPOLO ALB. 1 140 HCCOUAN 4/7/73 HOCKEY 

30 LET X = 1 

40 PRINT:PRINT:PRINT 

50 PRINT "MOULD YOU LIKE THE INSTRUCTIONS" j : INPUT C* 

55 PRINT 

40 IF C*="NO" THEN VO 

45 IF C»="YES" THEN 80 

70 PRINT "ANSUER YES OR N0!!":B0T0 50 

80 GOTO 1720 

?0 DIM A*(7),B»<7>,H(20),T<5>,TK5),T2(5),T3(5> 

100 PRINT "ENTER THE TUO TEAMS"; :INPUT A*(7),B*(7> 



105 PRINT 

110 PRINT "ENTER THE NUMBER OF MINUTES IN A GAME" j: INPUT T4 

115 PRINT 

120 IF T6<1 THEN I10:PRINT 

130 PRINT "UOULD THE " A«(7) " COACH ENTER HIS TEAM" 

135 PRINT 

140 FOR 1=1 TO 6:PRINT "PLAYER"I; : INPUT A»U):NEXT I:PRINT 

150 PRINT "UOULD THE " Bl(7> " COACH DO THE SAME" 

155 PRINT 

140 FOR 1 = 1 TO 4:PRINT "PLAYER"T;:INPUT B»(T):NEXT T:PRINT 

170 PRINT "INPUT THE REFEREE FOR THIS GAHE";:INPUT Rl 

180 PRINT:PRINT TAB(10);A«(7) " STARTING LINEUP" 

1?0 FOR T=1 TO 4:PRINT A«(T):NEXT T 

200 PRINTiPRINT TAB(IO) ;B»(7)" STARTING LINEUP" 
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210 FOR T=1 TO 6:PR1NT B»<T):NEXT TiPRINT 

220 PRINT "UE'RE READY FOR TONIGHTS OPENING FACE-OFF" 

230 PRINT R» " UILL DROP THE PUCK BETUEEN " A»<2> " AND " B«<2) 

240 FOR L=1 TO T6:IF L=l THEN 240 

250 PRINT "AND UE'RE READV FOR THE FACE-OFF" 

260 C=INT<2»RHD<X)>*1:0N C GOTO 270,280 

270 PRINT A$(7) " HAS CONTROL OF THE PUCK":GOT0 290 

280 PRINT B»<7) " HAS CONTROL" 

290 PRINT "PASS";: INPUT P:FOR N=1 TO 3:H(N)=0:NEXT N 

300 IF P<0 THEN 290 

305 IF P>3 THEN 290 

310 FOR J«l TO <P+2) 

320 H(J)=INT(5»RND(X))+1 

330 NEXT J:IF H( J-l )«H(J-2) THEN 310 

331 IF P*2<3 THEN 350 

335 IF HU-1KHU-3) THEN 310 

340 IF H(J-2)=HU-3> THEN 310 

350 IF P=0 THEN 360 

355 60TO 470 

360 INPUT "SHOT ";S:IF S<1 THEN 360 

365 IF S>4 THEN 360 

370 ON C GOTO 380,480 

380 PRINT At<H(J-1)>;:G=H<J-1):G1=0:G2=0 

370 ON S GOTO 400,420,440,460 

400 PRINT " LET'S A BOOMER GO FROH THE RED LINEI!" 

410 Z=10:60T0 890 

420 PRINT " FLIPS A URI5TSH0T DOUN THE ICE" 

440 PRINT "BACKHANDS ONE IN ON THE GOALTENDER" 

450 Z=25:60T0 890 

460 PRINT " SNAPS A LONG FLIP SHOT" 

470 Z=17:60T0 890 

480 PRINT B»<H(J-1>);:81=0:Q2*0:G=H<J-1>:GOTO 390 

490 ON C GOTO 500,640 

500 ON P GOTO 510,540,570 

510 PRINT A«(H<J-2)> " LEADS " A»(H(J-U) " UITH A PERFECT PASS" 

520 PRINT AKH(J-D) " CUTTING IN!!!" 

530 G=H(J-1>:G1=H(J-2>:G2=0:Z1=3:GOT0 770 

540 PRINT A»(H<J-2>> " GIVES TO A STREAKING " AJ(H(J-1>) 

550 PRINT A«<H<J-3>> " COHES DOUN ON " BIO) " AND " B»(4) 

560 G=H(J-3>:61=H<J-1):G2=H(J-2):Z1=2:GOTO 770 

570 PRINT "OH HY GOD I! A ' 4 ON 2 ' SITUATION" 

580 PRINT AXHU-3)) " LEADS " A$(H(J-21) 

590 PRINT A»(H(J-2>> " IS UHEEELING THROUGH CENTER" 

600 PRINT AMHU-2U " GIVES AND GOES UITH " A$(H(J-1>) 

610 PRINT "PRETTY PASSING" 

620 PRINT A$(H(J-D) " DROPS IT TO " A»(H<J-4>> 

630 G=H<J-4):Gi=J(J-1):G2=H(J-2):Z1=1:G0T0 770 

640 ON P GOTO 650,670,720 

650 PRINT BXHU-II) " HITS " B*(H<J-2>> " FLYING DOUN THE LEFTSIDE" 

660 6=H<J-2):61=H<J-1>:G2=0:Z1=3:60T0 770 

670 PRINT "IT'S A ' 3 ON 2 '" 

680 PRINT "ONLY " A»(4) " AND " A»(5) " ARE BACK" 

690 PRINT B»<H(J-2)> " DIVES OFF TO " B*(H(J-D) 

700 PRINT B*(H(J-D) " DROPS TO " B*(H(J-3)> 

710 6=H(J-3):81=H(J-1):62=H<J-2):Z1=2:00T0 770 

720 PRINT " A ' 3 ON 2 ' UITH A ' TRAILER '" 

730 PRINT BXHU-4)) " GIVES TO " B»(H<J-2)1 " UHO SHUFFLES IT OFF TO" 

740 PRINT Bt(H(J-1)> " UHO FIRES A UING TO UING PASS TO " 

750 PRINT BI(H(J-3>) " AS HE CUTS IN ALONE! I" 

760 6=H<J-3>:61=HU-1):62=HU-2):Z1=1:G0T0 770 

770 PRINT "SH0T"J:INPUT S:IF S>4 THEN 770:IF S<1 THEN 770 

780 ON C GOTO 790,880 

790 PRINT AMBlJiON S GOTO 800,820,840,860 

800 PRINT " LET'S A BIG SLAP SHOT 60!!" 

810 Z-4:Z«Z*ZI:G0T0 890 

820 PRINT * RIPS A URIST SHOT OFF" 

830 Z=2:Z«Z«I:60T0 890 

840 PRINT " GETS A BACKHAND OFF" 

850 Z=3:Z=Z*Z1:60T0 890 

860 PRINT " SNAPS OFF A SNAP SHOT" 

870 Z»2:Z=ZtZ1:60T0 890 

880 PRINT B*(6);:0N S GOTO 800,820,840,860 

890 PRINT "AREA";: INPUT A: IF A<1 THEN 890 

895 IF A>4 THEN 890 

900 ON C GOTO 910,920 

910 S2=S2*1:00T0 930 

920 S3=S3+1 

930 A1 = INT(4*RND(X))t1:IF AOA1 THEN 1200 

940 H<20)=INT(100«RND<X>>+1 

950 IF INT(H120)/Z)=H(20)/Z THEN 1160 

960 ON C 60T0 970,980 

970 PRINT "GOAL " A»<7):H(9>=H(9H1 :GOTO 990 

980 PRINT "SCORE " B«(7):H(8)=H(8)+1 

990 FOR B1=1 TO 25:PRINT CHR$(7);:NEXT B1:PRINT 

1000 PRINT "SCORE: ";:IF H(8>>H(9) THEN 1020 

1010 PRINT A$(7)":";H(9),B«(7)":";H(8):G0T0 1030 

1020 PRINT B»(7)":";H(B),A»<7> ;H(9) 

1030 ON C GOTO 1040,1100 

1040 PRINT "60AL SCORED BYj " A»(6);:IF G1=0 THEN 1070 

1050 IF 62=0 THEN 1080 

1060 PRINT " ASSISTED BY: " A»(G1) " AND " A*(G2):G0T0 1090 



1070 PRINT " UNASSISTED":GOTO 1090 

1080 PRINT " ASSISTED BY: " AKG1) 

1090 T(G)=T(G)+1:T1(Gl)«T1(Gl)t1:T1(G2)=T1(G2)+1:G0TO 1540 

1100 PRINT "GOAL SCORED BY: " B»(G); 

1110 IF 61=0 THEN 1130 

1115 IF 62=0 THEN 1140 

1120 PRINT " ASSISTED BY: " B»(G1) " AND " B*(62):G0T0 1150 

1130 PRINT " UNASSISTED":GOTO 1150 

1140 PRINT " ASSISTED BY: " B«(G1):G0T0 1150 

1150 T2<G) = T2<6H1:T3<G1) = T3<G1)+1:T3(G2) = T3<G2) + 1:G0T0 1540 

1160 A2=INT(100*RND(X))t1:IF INT(A2/4)=A2/4 THEN 1170 

1165 GOTO 1200 

1170 ON C GOTO 1180,1190 

1180 PRINT "SAVE " B«(6> " REBOUND":GUTU 940 

1190 PRINT "SAVE " A»(6) " FOLLOU UP":GOT0 940 

1200 S1=INT(6«RND(X))t1 

1210 ON C GOTO 1220,1380 

1220 ON SI GOTO 1230,1260,1290,1300,1330,1350 

1230 PRINT "KICK SAVE AND A BEAUTY BY » B»(6) 

1240 PRINT "CLEARED OUT BY " B»(3) 

1250 GOTO 260 

1260 PRINT "UHAT A SPECTACULAR GLOVE SAVE BY " B»(6) 

1270 PRINT "AND " B»(6) " GOLFS IT INTO THE CROUD" 

1280 GOTO 1540 

1290 PRINT "SKATE SAVE ON A LOU STEAMER BY " 8*<6>:G0TO 260 

1300 PRINT "PAD SAVE BY " Bl<6) " OFF THE STICK " 

1310 PRINT "OF "A»(G) " AND " B»(6) " COVERS UP" 

1320 GOTO 1540 

1330 PRINT "UHISTLES ONE OVER THE HEAD UF " B*<6) 

1340 GOTO 260 

1350 PRINT B»(6) " HAKES A FACE SAVE!! AND HE IS HURT" 

1360 PRINT "THE DEFENSEHAN " 8»(5) " COVERS UP FOR HIM" 

1370 GOTO 1540 

1380 ON SI 60TQ 1390,1410,1440,1470,1490,1520 

1390 PRINT "STICK SAVE BY " A»(6) 

1400 PRINT "AND CLEARED OUT BY " A*(4):G0T0 260 

1410 PRINT "OH NY GOD!! " B*(G) " RATTLES ONE OFF THE POST" 

1420 PRINT "TO THE RIGHT OF " A»(6) " AND " A»(6) " COVERS "; 

1430 PRINT "ON THE LOOSE PUCK!":GOTO 1540 

1440 PRINT "SKATE SAVE BY " A»(6) 

1450 PRINT At(6) " UHACKS THE LOOSE PUCK INTO THE STANDS" 

1460 GOTO 1540 

1470 PRINT "STICK SAVE BY " A»<6) " AND HE CLEARS IT OUT HIHSELF" 

1480 GOTO 260 

1490 PRINT "KICKED OUT BY " A»(6) 

1500 PRINT "AND IT REBOUNDS ALL THE UAY TO CENTER ICE" 

1510 GOTO 260 

1520 PRINT "GLOVE SAVE " A$(6) " AND HE HANGS ON" 

1530 GOTO 1540 

1540 NEXT L:FOR N=1 TO 30:PRINT CHR*(7) ;:NEXT N:PRINT "TAT'S THE SIREN" 

1550 PRINT:PRINT TAB(15);*FINAL SCORE:" 

1560 IF H(8)>H(9) THEN 1580 

1570 PRINT A»(7)":";H(9),B*(7)":";H(8):60T0 1590 

1580 PRINT B»(7)":"jH(8),A»(7)":";H(91 

1590 PRINT:PRINT TAB(10);"SCORING SUHNARY":PRINT 

1600 PRINT TAB(25);A»(7) 

1610 PRINT TAB(5);"NAHE";TAB(20);"60ALS";TAB(35);"ASSISTS" 

1620 PRINT TAB(5)J" ";TAB(20);" ";TAB<35>;" " 

1630 FOR 1=1 TO 5:PRINT TAB(5);A*(I);TAB(21 ) JT(I );TAB(36);TI (I) 

1640 NEXT I:PRINT 

1650 PRINT TAB(25);Bt(7) 

1660 PRINT TAB(5);»NAHE";TAB(20);"GOALS";TAB(35);"ASSISTS" 

1670 PRINT TAB(5>; ";TAB(20);> ";TAB(35)j" • 

1660 FOR T=1 TO 5:PRINT TAB(5);BI(T);TAB(21 );T2(T);TAB(36);T3(T) 

1690 NEXT T:PRINT 

1700 PRINT "SHOTS ON NET":PRINT A«<7)":";S2:PR1NT B*(7)":";S3 

1710 END 

1720 PRINT: PRINT "THIS IS A SIHULATED HOCKEY GAHE." 

1730 PRINT "QUESTION RESPONSE" 

1740 PRINT "PASS TYPE IN THE NUMBER OF PASSES YOU UOULD" 

1750 PRINT " LIKE TO HAKE, FROH TO 3." 

1760 PRINT "SHOT TYPE THE NUMBER CORRESPONDING TO THE SHOT" 

1770 PRINT " YOU UANT TO HAKE. ENTER:" 

1780 PRINT " 1 FOR A SLAPSHOT" 

1790 PRINT " 2 FOR A URISTSHOT" 

1800 PRINT " 3 FOR A BACKHAND" 

1810 PRINT " 4 FOR A SNAP SHOT" 

1820 PRINT "AREA TYPE IN THE NUMBER CORRESPONDING TO" 

1830 PRINT " THE AREA YOU ARE AIMING AT. ENTER:" 

1840 PRINT " 1 FOR UPPER LEFT HAND CORNER" 

1850 PRINT " 2 FOR UPPER RIGHT HAND CORNER" 

1860 PRINT " 3 FOR LOUER LEFT HAND CORNER" 

1870 PRINT " 4 FOR LOUER RIGHT HAND CORNER" 

1880 PRINT 

1890 PRINT "AT THE START OF THE GAHE, YOU UILL BE ASKED FOR THE NAMES" 

1900 PRINT "OF YOUR PLAYERS. THEY ARE ENTERED IN THE ORDER: " 

1910 PRINT "LEFT UING, CENTER, RIGHT UING, LEFT DEFENSE," 

1920 PRINT "RIGHT DEFENSE; GOALKEEPER. ANY OTHER INPUT REQUIRED UILL" 

1930 PRINT "HAVE EXPLANATORY INSTRUCTIONS." 

1940 GOTO 90 

1950 END 



90 




oh ye*-.. 



*= s ^2S(k^^h 
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Horserace 



This program simulates a one-mile 
horse race for three-year old 
thoroughbreds. Up to ten people may 
place bets on the race up to $10,000 
each. However, you may only bet to 
win. You place your bet by inputting 
the number of the horse, a comma, and 
the amount of your bet. The computer 
then shows the position of the horses at 
seven points around the track and at 
the finish. Payoffs and winnings are 
shown at the end. 

The program was written by Laurie 
Chevalier while a student at South 
Portland High School. 



*■ * 




HORSERACE 
CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY 



XXXXSTARTXXXX 



3 4 6 



XXXXSTARTXXXX 



UELCOHE TO SOUTH PORTLAND HIGH RACETRACK 

...OUNED BY LAURIE CHEVALIER 
BO YOU UANT DIRECTIONS? YES 

UP TO 10 HAY PLAY. A TADLE OF ODDS UILL BE PRINTED. YOU 
HAY BET ANY + AHOUNT UNDER 100000 ON ONE HORSE. 
DURING THE RACE, A HORSE UILL BE SH0UN BY ITS 
NUMBER. THE HORSES RACE D0UN THE PAPERI 

HOU MANY UANT TO BET? 1 
UHEN 7 APPEARS, TYPE NAME 
? JIH 



HORSE 



NUMBER 



ODDS 



1 S 2 



JOE NAU 

L.B.J. 

NR.UASHBURN 

HISS KAREN 

JOLLY 

HORSE 

JELLY DO NOT 

MIDNIGHT 



4.44444 
4.66447 
20 H 
40 il 
4 il 
40 ■ I 
40 il 
4 il 



PLACE YOUR BETS... HORSE tt THEN AHOUNT 
JIH? 2,5000 



12 3 4 5 6 7 

XXXXSTARTXXXX 



XXXXFINISHXXXX 



XXXXFINISHXXXX 



XXXXSTARTXXXX 



XXXXSTARTXXXX 



6 4 

B 7 2 3 
I 



6 

7 

3 5 4 

1 

2 



4 7 
3 

6 
2 



XXXXFINISHXXXX 



XXXXFINISHXXXX 
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XXXXFINISHXXXX 



XXXXSTARTXXXX 



4 7 
3 



XXXXFINISHXXXX 



THE RACE RESULTS ARE I 

1 PLACE HORSE NO. 1 

2 PLACE HORSE NO. 8 

3 PLACE HORSE NO. 5 

4 PLACE HORSE NO.- 2 

5 PLACE HORSE NO. 6 

6 PLACE HORSE NO. 3 

7 PLACE HORSE NO. 7 



8 PLACE HORSE NO. 4 
DO YOU UANT TO BET ON THE NEXT RACE? 
? NO 



AT 4.44444 :1 

AT 4 :1 

AT 4 :1 

AT 6. 66667 st 

AT 40 si 

AT 20 si 

AT 40 si 

AT 40 si 



HORRISTOUN, NEU JERSEY" 



100 PRINT TAB(31);"H0RSERACE" 

110 PRINT TAB<15);"CREATIVE COHPUTINO 

120 PRINTsPRINTsPRINT 

210 DIN S(8) 

220 PRINT"UELCOHE TO SOUTH PORTLAND HIGH RACETRACK" 

230PRINT" ...OUNED BY LAURIE CHEVALIER" 

240 PRINT "BO YOU UANT DIRECTIONS"; 

250 INPUT X* 

240 IF X«="NO" THEN320 

270PRINT"UP TO 10 MAY PLAY. A TABLE OF OBDS UILL BE PRINTED. YOU" 

280 PRINT"HAY BET ANY ♦ AMOUNT UNDER 100000 ON ONE HORSE." 

290 PRINT "DURING THE RACE, A HORSE UILL BE SHOUN BY ITS" 

300 PRINT"NUHBER. THE HORSES RACE DOUN THE PAPER!" 

310 PRINT 

320 PRINT "HOU NANY UANT TO BET"; 

330 INPUT C 

340 PRINT "UHEN ? APPEARS, TYPE NAME" 

350 FOR A=l TO C 

340 INPUT U»(A) 

370 NEXT A 

380 PRINT 

390 PRINT"HORSE",, "NUMBER", "ODDS" 

400 PRINT 

410 FOR I»1 TO 8: S(I)=0: NEXT I 

420 LET R=0 

430 FOR A=1 TO 8 

440 LET D(A)=INT(10*RND(1)+1) 

450 NEXT A 

460 FOR A=1T0 8 

470 LET R=R+D(A> 

480 NEXT A 

490 LET V«(1)="J0E HAU" 

500 LET V*(2)="L.B.J." 

510 LET V1<3)="NR.UASHBURN" 

520 LET V»(4)="HISS KAREN" 

530 LET V*(5)«"J0LLY" 

540 LET V*<6)="H0RSE" 

550 LET V»<7)="JELLY DO NOT" 

540 LET V»(8)="MIDNI8HT" 



570 FOR N=l T08 

580 PRINT V«(N),,N,R/D(N);"t1" 

590 NEXT N 

400PRINT" 

410 PRINT "PLACE YOUR BETS... HORSE II THEN AMOUNT" 

620 FOR J=1 TO C 

630 PRINT U*(J>; 

640 INPUT 0(J),P(J) 

650 IF PUK1 THEN 670 

440 IF PUX100000 THEN 490 

470 PRINT" YOU CAN'T DO THAT!" 

480 SOTO 430 

490 NEXT J 

700 PRINT 

710 PRINT"! 2 3 4 5 4 7 8" 

720 PRINT"XXXXSTARTXXXX"; 

730 FOR 1=1 TON 

740 LET M=I 

750 LET M(I)=H 

760 LET Y(M(I))=INT(100*RND(1)+|) 

770 IF Y(H(I))<10 THEN860 

780 LET S=INT(R/D(I)t.5) 

790 IF Y<H(I)XS*17 THEN 880 

800 IF Y(H(I)XSt37 THEN 900 

810 IF Y(H(I)XS+57 THEN920 

820 IF Y<H(I)X77*S THEN940 

830 IF Y(H(I)XSt92 THEN960 

840 LET Y(H(I))=7 

850 GOTO 970 

860 LET Y(H(I))=1 

870 GOTO 970 

880 LET Y(H(I))=2 

890 GOTO 970 

900 LET Y(M(I))=3 

910 GOTO 970 

920 LET Y(H(I))=4 

930 GOTO 970 

940 LET Y(M(I))=5 

950 SOTO 970 

960 LET Y<H(I>>=4 

970 NEXTI 

980 LET H=I 

990 FOR I=1T08 

1000LET S(M(I))=S(H(I))+Y(H(I)) 

1010 NEXTI 

1020 LET 1=1 

1030 FOR L = 1 T08 

1040 F0RI=1T0 B-L 

1050 IF S(H(I)XS(N(It1))THEN 1090 

1060 LET H=M(I) 

1070 LET M(I)=M(I+1) 

10B0 LET H(I+1)=H 

1090 NEXT I 

1100 NEXT L 

1110 LET T=S<H(B>> 

1I20F0R 1=1 TOB 

1130 LET B=S(M(I))-S(M(I-D) 

1140 IF B=0 THEN 1190 

1150 FOR A=1 TO B 

1160 PRINT 

1I70IF S(M(I))>27 THENI240 

1180 NEXT A 

1190 PRINT M(I); 

1200 NEXT I 

1210 FOR A=1 TO 2B-T 

1220 PRINT 

1230 NEXT A 

1240 PRINT"XXXXFINISHXXXX" 

1242 PRINT 

1243 PRINT 

1244 PRINT " 

1245 PRINT 

1250 IF T<28 THEN 720 

1270 PRINT "THE RACE RESULTS ARE:" 

1272 LET Z9=1 

1280 FOR 1=8 TO 1STEP-1 

1290 LET F=H(I) 

1300 PRINT 

1310 PRINT Z9;"PLACE HORSE NO.";F,"AT ";R/D(F) ;"s1" 

1312 LET Z9=Z9+1 

1320 NEXT I 

1330 FOR J=l TO C 

1340 IF Q(J)OH(8) THEN 1370 

1350LET N=0(J) 

1355 PRINT 

1340 PRINT U»(J>;" UINS «";(R/D(N))*P(J) 

1370 NEXT J 

1372 PRINT "DO YOU UANT TO BET ON THE NEXT RACE?" 

1374 INPUT "YES OR NO'JOI 

1374 IF OI="YES" THEN 380 

1380 END 
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Hurkle 



NORTH 



Hurkle? A Hurkle is a happy beast 
and lives in another galaxy on a planet 
named Lirht that has three moons. 
Hurkle are favorite pets oftheGwik, the 
dominant race of Lirht and . . . well, to 
find out more, read "The Hurkle is a 
Happy Beast," a story in the book A 
Way Home by Theodore Sturgeon. 

In this program a shy hurkle is hiding 
on a 10 by 10 grid. Homebase is point 
0,0 in the Southwest corner. Your 
guess as to the gridpoint where the 
hurkle is hiding should be a pair of 
whole numbers, separated by a com- 
ma. After each try, the computer will 
tell you the approximate direction to go 
look for the Hurkle. You get five 
guesses to find him; you may change 
this number in Line 110, although four 
guesses is actually enough. 

This program was written by Bob 
Albrecht of People's Computer Com- 
pany. 



HURKLE 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 

A HURKLE IS HIDING ON A 10 BY 10 GRID. H0HEBASE 
ON THE GRID IS POINT 0,0 AND ANT GRIDPOINT IS A 
PAIR OF UHOLE NUMBERS SEPARATED BY A C0NMA. TRY TO 
GUESS THE HURKLE'S GRIDPOINT. YOU GET S TRIES. 
AFTER EACH TRY, I MILL TELL YOU THE APPR0XIHATE 
DIRECTION TO GO TO LOOK FOR THE HURKLE. 

GUESS I 1 T 3,5 
00 SOUTHEAST 

GUESS I 2 ? 4,4 
GO SOUTH 

GUESS II 3 ? 4,3 
GO SOUTH 

GUESS ) 4 ? 4,2 

YOU FOUND HIH IN 4 GUESSESI 

LET'S PLAY AGAIN. HURKLE IS HIDING. 

GUESS I I T 3,3 
GO NORTHUEST 

GUESS I 2 ? 3,8 
GO NORTHUEST 

GUESS I 3 T 2,9 

YOU FOUND HIH IN 3 GUESSES! 



10 
9 
8 

7 
6 

WEST 5 

4 

3 

2 

1 





EAST 



HOMEBASE 



0123456789 10 



SOUTH 



HORRISTOUN, NEU JERSEY" 



10 PRINT TAB (33); "HURKLE" 

20 PRINT TAB(15>;"CREAWE COHPUTING 

30 PRINT:PRINT:PRINT 

110 N«5 

120 G-IO 

210 PRINT 

220 PRINT -A HURKLE IS HIDING ON A";0;"BY";B;"GRID. HOHEBASE" 

230 PRINT "ON THE GRID IS POINT 0,0 AND ANY GRIDPOINT IS A" 

240 PRINT "PAIR OF UHOLE NUNBERS SEPARATED BY A COHNA. TRY TO" 

250 PRINT "6UESS THE HURKLE'S GRIDPOINT. YOU GET";N;"TRIES." 

260 PRINT 'AFTER EACH TRY, I MILL TELL YOU THE APPROXIMATE" 

270 PRINT "DIRECTION TO 60 TO LOOK FOR THE HURKLE." 

280 PRINT 

2B5 A*INT<G*RND<1>> 

2B6 B«INT(B«RND(D) 

310 FOR KM TO N 

320 PRINT "GUESS B";K; 

330 INPUT X,Y 

340 IF ABS(X-A)+ABS(Y-B)=0 THEN 500 

350 REH PRINT INFO 

360 60SUB 610 

370 PRINT 

3B0 NEXT K 

410 PRINT 

"SORRY, THAT'S";N;"BUE8SES." 

"THE HURKLE IS AT "JA;",";B 



"LET'S PLAY AGAIN. HURKLE IS HIDINB. 



420 PRINT 

430 PRINT 

440 PRINT 

450 PRINT 

460 PRINT 

470 O0T0 283 

500 REN 

510 PRINT 

320 PRINT "YOU FOUND HIH IN";K;"GUESSES!" 

340 GOTO 440 

410 PRINT "80 "J 

420 IF Y»B THEN 670 

430 IF Y<B THEN 460 

440 PRINT "SOUTH"; 

450 60 TO 670 

460 PRINT "NORTH"; 

470 IF X=A THEN 720 

480 IF X<A THEN 710 

490 PRINT "UEST";' 

700 60 TO 720 

710 PRINT "EAST"; 

720 PRINT 

730 RETURN 

?»» END 
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Kinema 



This program tests your fundamental 
knowledge of kinematics. It presents a 
simple problem: a ball is thrown 
straight up in the air at some random 
velocity. You then must answer three 
questions about the flight of the ball: 

1. How high will it go? 

2. How long until it returns to earth? 

3. What will be its velocity after a 
random number of seconds? 

The computer evaluates your perfor- 
mance; within 15% of the correct 
answer is considered close enough. 
After each run, the computer gives you 
another problem until you interrupt it. 

KINEMA was shortened from the 
original Huntington Computer Project 
Program, KINERV, by Richard Pav of 
Patchogue High School, Patchogue, 
New York. 



KINEHA 
CREATIVE COHPUTING MORRISTOUN, NEU JERSEY 



A BAIL IS THROUN UPUARDS AT 35 METERS PER SECOND. 

HOU HIGH UIU IT GO (IN METERS)? 10 
NOT EVEN CLOSE.... 
CORRECT ANSUER IS 41 .25 

HOU LONG UNTIL IT RETURNS (IN SECONDS)? 7 
CLOSE ENOUGH. 
CORRECT ANSUER IS 7 

UHAT UILL ITS VELOCITY BE AFTER 4.5 SECONDS? 20 

NOT EVEN CLOSE 

CORRECT ANSUER IS -10 



1 RIGHT OUT OF 3. 

A BALL IS THROUN UPUARDS AT 25 HETERS PER SECOND. 

HOU HIGH UILL IT GO (IN HETERS)? 45 
NOT EVEN CLOSE.... 
CORRECT ANSUER IS 31.25 

HOU LONG UNTIL IT RETURNS (IN SECONDS)? 4 

NOT EVEN CLOSE 

CORRECT ANSUER IS 5 

UHAT UILL ITS VELOCITY BE AFTER 3.2 SECONDS? 12 

NOT EVEN CLOSE 

CORRECT ANSUER IS -7 

RIGHT OUT OF 3. 



10 PRINT TAB(33);"KINEHA" 

20 PRINT TAB(15);"CREATIVE COHPUTING MORRISTOUN, NEU JERSEY" 

30 PRINT: PRINT: PRINT 

100 PRINT 

105 PRINT 

106 0=0 

110 V=5+INT(35»RND<1>) 

111 PRINT "A BALL IS THROUN UPUARDS AT" ;V; "METERS PER SECOND. 

112 PRINT 

115 A=.05»V2 

116 PRINT "HOU HIGH UILL IT GO (IN HETERS)"; 

117 00SUB 500 
120 A=V/5 

122 PRINT "HOU LONG UNTIL IT RETURNS (IN SECONDS)"; 

124 G0SUB 500 

130 T=HINT(2*V*RND<11>/10 

132 A=V-10*T 

134 PRINT "UHAT UILL ITS VELOCITY BE AFTER" ;T; "SECONDS"; 

136 60SUB 500 

140 PRINT 

150 PRINT 0;"RIGHT OUT OF 3."; 

160 IF Q<2 THEN 100 

170 PRINT " NOT BAD." 

180 GOTO 100 

500 INPUT 6 

502 IF ABS((G-A)/A)C15 THEN 510 

504 PRINT "NOT EVEN CLOSE " 

506 GOTO 512 

510 PRINT "CLOSE ENOUGH." 

511 Q=0+1 

512 PRINT "CORRECT ANSUER IS ";A 
520 PRINT 

530 RETURN 
999 END 
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King 



This is one of the more comprehen- 
sive, difficult, and interesting land and 
resource management games. (If 
you've never played one of these 
games, start with HAMMURABI.) 

In this game, you are Premier of 
Setats Detinu, a small communist 
island 30 by 70 miles long. Your job is to 
decide upon the budget of the country 
and distribute money to your coun- 
trymen from the communal treasury. 

The money system is Rallods; each 
person needs 100 Rallods per year to 
survive. Your country's income comes 
from farm produce and tourists visiting 
your magnificent forests, hunting, 
fishing, etc. Part of your land is farm 
land but it also has an excellent mineral 
content and may be sold to foreign 
industry for strip mining. Industry 
import and support their own workers. 
Crops cost between 10 and 15 Rallods 
per square mile to plant, cultivate, and 
harvest. Your goal is to complete an 
eight-year term of office without major 
mishap. A word of warning: it isn't easy! 

The author of this program is James 
A. Storer who wrote it while a student at 
Lexington High School. 



KINO 
CREATIVE COMPUTING H0RRIST0UN, NEU JERSEY 



DO YOU UANT INSTRUCTIONS? YES 



YOU NOU HAVE 59907 RALLODS IN THE TREASURY. 
502 COUNTRYMEN, AND 2000 SO. MILES OF LAND. 
THIS YEAR INDUSTRY UILL BUY LAND FOR 103 RALLODS PER SO. NILE. 
LAND CURRENTLY COSTS 10 RALLODS PER SO. MILE TO PLANT. 



H0U HANY SO. MILES DO YOU UISH TO SELL TO INDUSTRY? 200 

HOU MANY RALLODS UILL YOU DISTRIBUTE TO YOUR COUNTRYMEN? 30200 

HOU HANY SQ. MILES DO YOU UISH TO PLANT? 500 

HOU MANY RALLODS DO YOU UISH TO SPEND ON POLLUTION CONTROL? 10000 



212 U0RKERS CAME TO THE COUNTRY AND 396 COUNTRYMEN CAME TO THE ISLAND. 
OF 500 SO. MILES PLANTED, YOU HARVESTED 340 SQ. MILES OF CROPS. 

(DUE TO AIR AND UATER POLLUTION FROM FOREIGN INDUSTRY.) 
MAKING 17510 RALLODS. 
YOU HADE 8179 RALLODS FROM TOURIST TRADE. 

YOU NOU HAVE 65434 RALLODS IN THE TREASURY. 

898 COUNTRYMEN, 212 FOREIGN U0RKERS, AND 1800 SQ. MILES OF LAND. 
THIS YEAR INDUSTRY UILL BUY LAND FOR 98 RALLODS PER SO. MILE. 
LAND CURRENTLY COSTS 13 RALLODS PER SQ. HUE TO PLANT. 

HOU HANY SO. MILES DO YOU UISH TO SELL TO INDUSTRY? 

HOU HANY RALLODS UILL YOU DISTRIBUTE TO YOUR COUNTRYHEN? 89800 

THINK AGAIN, YOU'VE ONLY 65434 RALLODS IN THE TREASURY 
HOU MANY RALLODS UILL YOU DISTRIBUTE TO YOUR COUNTRYMEN? 40000 
HOU HANY SQ. MILES DO YOU UISH TO PLANT? 400 
HOU MANY RALLODS DO YOU UISH TO SPEND ON POLLUTION CONTROL? 6000 



CONGRATULATIONS! YOU'VE JUST BEEN ELECTED PREMIER OF SETATS 
DETINU, A SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR 
JOB IS TO DECIDE UPON THE COUNTRY'S BUDGET AND DISTRIBUTE 
HONEY TO YOUR COUNTRYMEN FROM THE COHHUNAL TREASURY. 
THE MONEY SYSTEM IS RALLODS, AND EACH PERSON NEEDS 100 
RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY'S INCOME COMES 
FROH FARH PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT 
FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARM LAND 
UHICH ALSO HAS AN EXCELLENT MINERAL CONTENT AND MAY BE SOLD 
TO FOREIGN INDUSTRY (STRIP MINING) UHO IMPORT AND SUPPORT 
THEIR OUN UORKERS. CROPS COST BETUEEN 10 AND 15 RALLODS PER 
SB. MILE TO PLANT. 

YOUR GOAL IS TO COMPLETE YOUR 8 YEAR TERM OF OFFICE. 
GOOD LUCK. 



498 COUNTRYHEN DIED OF STARVATION 

YOU UERE FORCED TO SPEND 4482 RALLODS ON FUNERAL EXPENSES 
234 COUNTRYMEN CAME TO THE ISLAND. 
OF 400 SO. MILES PLANTED, YOU HARVESTED 448 SQ. MILES OF CROPS. 

(DUE TO AIR AND UATER POLLUTION FROM FOREIGN INDUSTRY.) 
MAKING 21952 RALLODS. 
YOU MADE 6048 RALLODS FROM TOURIST TRADE. 

DECREASE BECAUSE AIR POLLUTION IS KILLING GAHE BIRD POPULATION. 



498 COUNTRYHEN DIED IN ONE YEARHH! 
DUE TO THIS EXTREHE MISMANAGEMENT YOU HAVE NOT ONLY 
BEEN IHPEACHED AND THROUN OUT OF OFFICE BUT YOU 
HAVE ALSO GAINED A VERY BAD REPUTATION. 
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1 PRINT TAB(34);"KINQ" 

2 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

3 PRINT:PRINT:PRINT 

4 PRINT "DO YOU UANT INSTRUCTIONS"; 

5 INPUT Z* 

6 N5=8 

tO IF LEFT»(Z»,1>="N" THEN 47 

11 IF Z$="AGAIN" THEN 1960 

12 PRINT:PRINT:PRINT 

20 PRINT "CONGRATULATIONS! YOU'VE JUST BEEN ELECTED PREMIER OF SETATS" 
22 PRINT "DETINU, A SHALL CONNUNIST ISLAND 30 BY 70 MILES LONG. YOUR" 
24 PRINT "JOB IS TO DECIDE UPON THE COUNTRY'S BUDOET AND DISTRIBUTE" 
24 PRINT "MONEY TO YOUR COUNTRYMEN FROM THE COMMUNAL TREASURY." 
28 PRINT "THE MONEY SYSTEM IS RALLODS, AND EACH PERSON NEEDS 100" 
30 PRINT "RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY'S INCOME COMES" 
32 PRINT "FROM FARH PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT" 
34 PRINT "FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARH LAND" 
36 PRINT "UHICH ALSO HAS AN EXCELLENT MINERAL CONTENT AND MAY BE SOLD" 
38 PRINT "TO FOREIGN INDUSTRY (STRIP MINING) UHO IMPORT AND SUPPORT" 
40 PRINT "THEIR OUN UORKERS. CROPS COST BETUEEN 10 AND IS RALLODS PER" 
42 PRINT "SO. MILE TO PLANT." 
44 PRINT "YOUR GOAL IS TO COMPLETE Y0UR";N5;"YEAR TERM OF OFFICE." 

46 PRINT "GOOD LUCK." 

47 PRINT 

SO A=INT(60000+<10Q0*RND<1))-<1000»RND<1>)) 

55 B«INT(500t(10*RND(l))-(10«RND<l)>) 

65 D=2000 

100 U-INT(10*RND<m95> 

102 PRINT 

105 PRINT "YOU NOU HAVE" ;A; "RALLODS IN THE TREASURY." 

110 PRINT INT(B);"COUNTRYMEN, "; 

115 V9=INT(<(RND<1>/2)»10+10>> 

120 IF C-0 THEN 140 

130 PRINT INT(C);"FOREIGN UORKERS, "; 

140 PRINT "AND";INT(D);"SQ. MILES OF LAND." 

150 PRINT "THIS YEAR INDUSTRY UILL BUY LAND FOR";Uj 

152 PRINT "RALLODS PER SQ. HILE." 

155 PRINT "LAND CURRENTLY C0STS";V9;"RALL0DS PER SO. MILE TO PLANT." 

162 PRINT 

200 PRINT "HOU MANY SQ. MILES DO YOU UISH TO SELL TO INDUSTRY"; 

210 INPUT H 




215 IF H<0 THEN 200 

220 IF H<=D-1000 THEN 300 

230 PRINT " THINK AGAIN, YOU'VE ONLY";D-1000;"SQ. MILES OF FARH LAND" 

240 IF XOO THEN 200 

250 PRINT "(FOREIGN INDUSTRY UILL ONLY BUY FARM LAND BECAUSE" 

260 PRINT "FOREST LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES," 

270 PRINT "THICKER TOP SOIL, ETC.)" 

280 X=1 

299 GOTO 200 

300 D=INT(D-H) 
310 A=INT(A*(H»U)) 

320 PRINT "HOU MANY RALLODS UILL YOU DISTRIBUTE TO YOUR COUNTRYMEN"; 

340 INPUT I 

342 IF KO THEN 320 

350 IF KA THEN 400 

360 IF I=A THEN 380 

370 PRINT " THINK AGAIN, YOU'VE ONLY";A;"RALLODS IN THE TREASURY" 

375 GOTO 320 

380 J=0 

390 K*0 

395 A=0 

399 GOTO 1000 

400 A=INT(A-I) 

410 PRINT "HOU MANY SQ. MILES DO YOU UISH TO PLANT"; 

420 INPUT J 

421 IF J<0 THEN 410 

422 IF J<=8*2 THEN 426 

423 PRINT " SORRY, BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SO. MILES" 

424 GOTO 410 

426. IF J<=D-!000 THEN 430 

427 PRINT " SORRY, BUT YOU'VE 0NLY";D-1000;"SQ. MILES OF FARM LAND" 

428 GOTO 410 
430 U!=INT(J*V9) 

435 IF UKA THEN 500 

440 IF U1*A THEN 490 

450 PRINT" THINK AGAIN, YOU'VE ONLY";A;"RALLODS LEFT IN THE TREASURY" 

460 GOTO 410 

490 K=0 

495 A=0 

499 GOTO 1000 

500 A=A-U1 

510 PRINT "HOU HANY RALLODS DO YOU UISH TO SPEND ON POLLUTION CONTROL"; 

520 INPUT K 

522 IF K<0 THEN 510 

530 IF K<=A THEN 1000 

540 PRINT " THINK AGAIN, YOU'VE 0NLY";A;"RALLODS REMAINING" 

550 GOTO 510 

600 IF HOO THEN 1002 

602 IF IOO THEN 1002 

604 IF JOO THEN 1002 

606 IF KOO THEN 1002 

609 PRINT 

612 PRINT "GOODBYE." 

614 PRINT "(IF YOU UISH TO CONTINUE THIS GAME AT A LATE DATE, ANSUER" 

616 PRINT "'AGAIN' UHEN ASKED IF YOU UANT INSTRUCTIONS, AT THE" 

618 STOP 

1000 GOTO 600 

1002 PRINT 

1003 PRINT 
1010 A=INT(A-K) 
1020 A4-A 

1100 IF INT(I/100-B)>=0 THEN 1120 

1105 IF I/100<50 THEN 1700 

1110 PRINT INT(B-<I/100));"COUNTRYMEN DIED OF STARVATION" 

1120 F1=INT(RND(1)*(2000-D>) 

1122 IF K<25 THEN 1130 

1125 F1=INT(F1/(K/25)) 
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1130 
1140 
1150 
1160 
11i5 
1170 
1172 
1174 
1175 
1176 
1180 
1181 
1182 
1183 
1185 
1187 
118? 
1190 
1194 
1200 
1220 
1224 
1226 
1230 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1290 
1292 
1305 
1310 
1320 
1324 
1326 
1330 
1340 
1344 
1350 
1355 
1360 
1365 
1370 
1380 
1390 
1400 
1405 
1410 
1420 
1425 
1430 
1435 
1440 
1442 
1444 
1446 
1448 
1450 
1451 
1452 
1460 
1462 
1465 
1467 
1470 
1472 
1475 
1477 
1480 
1482 
1500 
1505 
1510 
1515 
1520 
1545 
1550 
1552 
1560 
1562 
1564 
1570 
1574 
1576 
1578 
1580 
1590 
1592 



IF F1<*0 THEN 1150 

PRINT Fl; "COUNTRYMEN DIED OF CARBON-MONOXIDE AND DUST INHALATION" 

IF INT((I/100)-D)<0 THEN 1170 

IF F1>0 THEN 1180 

GOTO 1200 

PRINT " YOU UERE FORCED TO SPEND";INT( <F1+(B-(I/100) ) )*?) ; 

PRINT "RALLODS ON FUNERAL EXPENSES" 

B5=INT(F1+(B-(I/100)>> 

A=INT(A-((F1t(B-(I/100))>*9>) 

SOTO 1185 

PRINT " YOU UERE FORCED TO SPEND" ; INT (Fl *?) f'RALLODS ON "; 

PRINT "FUNERAL EXPENSES" 

B5=F1 

A=INT(A-(F1*9)) 

IF A>=0 THEN 1194 

PRINT " INSUFFICIENT RESERVES TO COVER COST - LAND UAS SOLD" 

D=INT(D+(A/U>> 

A-0 

B=INT(B-B5) 

IF H=0 THEN 1250 

CI =INT(Ht(RNB(1)*10)-(RND< 11*20)1 

IF 00 THEN 1230 

C1=C1+20 

PRINT C1;"U0RKERS CAHE TO THE COUNTRY AND"; 

P1=INT<((I/100-B)/10)t(K/25>-<(2000-D>/50)-(F1/2l) 

PRINT ADS(P1);"C0UNTRYHEN "J 

IF PKO THEN 1275 

PRINT "CAHE TO"; 

GOTO 1280 

PRINT "LEFT"; 

PRINT " THE ISLAND." 

B=INT(B*P1) 

C=INT(C+C1) 

U2=INT(((2000-D)*(<RND< 1 1 + 1.51/2))) 

IF C=0 THEN 1324 

PRINT " OF";INT(J);"SQ. HILES PLANTED,"; 

IF J>U2 THEN 1330 

U2=J 

PRINT " YOU HARVESTED";INT(J-U2);"SQ. HILES OF CROPS." 

IF U2=0 THEN 1370 

IF T1>*2 THEN 1370 

PRINT " (DUE TO "; 

IF T1=0 THEN 1365 

PRINT "INCREASED "; 

PRINT "AIR AND UATER POLLUTION FROH FOREIGN INDUSTRY.)" 

Q=INT((J-U2)*(U/2)1 

PRINT " HAKIN0";INT(Q);"RALL0D5." 

A»INT(A+0) 

VI =INT( (IB-PI 1*22) +<RND( 1 1*500)1 

V2=INT((2000-B)*15) 

PRINT " YOU HADE";ABS(INT(V1-V21);"RALL0DS FROM TOURIST TRADE." 

IF V2=0 THEN 1450 

IF V1-V2>=V3 THEN 1450 

PRINT " DECREASE BECAUSE "; 

01 = 10*RHD( 1 1 

IF G1<=2 THEN 1460 

IF G1<=4 THEN 1465 

IF Gl<=6 THEN 1470 

IF Gl<=8 THEN 1475 

IF G1<*10 THEN 1480 

V3=INT(A+V3> 

A=INT(A+V31 

GOTO 1500 

PRINT "FISH POPULATION HAS DUINDLED DUE TO UATER POLLUTION." 

GOTO 1450 

PRINT "AIR POLLUTION IS KILLING GAHE BIRD POPULATION." 

GOTO 1450 

PRINT "MINERAL BATHS ARE BEING RUINED BY UATER POLLUTION." 

GOTO 1450 

PRINT "UNPLEASANT SHOG IS DISCOURAGING SUN BATHERS." 

GOTO 1450 

PRINT "HOTELS ARE LOOKING SHABBY DUE TO SHOO BRIT." 

GOTO 1450 

IF B5>200 THEN 1600 

IF B<343 THEN 1700 

IF (A4/100)>5 THEN 1800 

IF OB THEN 1550 

IF N5-1=X5 THEN 1900 

GOTO 2000 

PRINT 

PRINT 

PRINT "THE NUHBER OF FOREIGN UORKERS HAS EXCEEDED THE NUHBER" 

PRINT "OF COUNTRYHEN. AS A MAJORITY THEY HAVE REVOLTED AND" 

PRINT "TAKEN OVER THE COUNTRY." 

IF RND(1K = .5 THEN 1580 

PRINT "YOU HAVE BEEN THROUN OUT OF OFFICE AND YOU ARE NGU" 

PRINT "RESIDING IN PRISON." 

GOTO 1590 

PRINT "YOU HAVE BEEN ASSASSINATED." 

PRINT 

PRINT 



1596 STOP 

1600 PRINT 

1602 PRINT 

1610 PRINT B5;"C0UNTRYMEN DIED IN ONE YEAR! I !!!" 

1615 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 

1620 PRINT "BEEN IMPEACHED AND THROUN OUT OF OFFICE BUT YOU" 

1622 H6=INT(RND(1)*10) 

1625 IF H6<=3 THEN 1670 

1630 IF H6<«6 THEN 1680 

1635 IF M6<«10 THEN 16V0 

1670 PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT." 

1672 GOTO 1590 

1680 PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION." 

1682 60T0 1590 

1690 PRINT "HAVE ALSO BEEN DECLARED NATIONAL FINK." 

1692 GOTO 1590 

1700 PRINT 

1702 PRINT 

1710 PRINT "OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU" 

1715 PRINT "UERE ELECTED TO OFFICE. THE PEOPLE (REMAINING)" 

1720 PRINT "HATE YOUR GUTS." 

1730 GOTO 1570 

1800 IF D5-FK2 THEN 1515 

1807 PRINT 

MONEY UAS LEFT OVER IN THE TREASURY UHICH YOU DID" 

NOT SPEND. AS A RESULT SOME OF YOUR COUNTRYMEN DIED" 

'OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE" 

BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE." 

'THE CHOICE IS YOURS." 

'IF YOU CHOOSE THE LATTER, PLEASE TURN OFF YOUR COMPUTER" 

'BEFORE PROCEEDING." 



1815 PRINT 

1820 PRINT 

1825 PRINT 

1830 PRINT 

1835 PRINT 

1840 PRINT 

1845 PRINT 

1850 GOTO 1590 

1900 PRINT 

1920 PRINT "CONGRATULATIONS!!!!!!!!!!!!!!!!!!" 

1925 PRINT "YOU HAVE SUCCESFULLY COMPLETED YOUR" JN5; "YEAR TERM" 

1930 PRINT "OF OFFICE. YOU UERE, OF COURSE, EXTREMELY LUCKY, BUT" 

1935 PRINT "NEVERTHELESS, IT'S QUITE AN ACHIEVEMENT. GOOBYE AND GOOD" 

1940 PRINT LUCK - YOU'LL PROBABLY NEED IT IF YOU'RE THE TYPE THAT" 

1945 PRINT "PLAYS THIS GAME." 

1950 GOTO 1590 

1960 PRINT "HOU MANY YEARS HAD YOU DEEN IN OFFICE UHEN INTERRUPTED"; 

1961 INPUT X5 

1962 IF X5<0 THEN 1590 

1963 IF X5<8 THEN 1969 

1965 PRINT " COME ON, YOUR TERM IN OFFICE IS 0NLY";N5;"YEARS." 
1967 GOTO 1960 

1969 PRINT "HOU MUCH DID YOU HAVE IN THE TREASURY"; 

1970 INPUT A 

1971 IF A<0 THEN 1590 

1975 PRINT "HOU MANY COUNTRYMEN"; 

1976 INPUT B 

1977 IF B<0 THEN 1590 

1980 PRINT "HOU MANY UORKERS"; 

1981 INPUT C 

1982 IF C<0 THEN 1590 

1990 PRINT "HOU MANY SO. HILES OF LAND"; 

1991 INPUT D 

1992 IF D<0 THEN 1590 

1993 IF D>2000 THEN 1996 

1994 IF D>1000 THEN 100 

1996 PRINT " COME ON, YOU STARTED UITH 1000 SO. HILES UF FARM LAND" 

1997 PRINT " AND 10000 SQ. MILES OF FOREST LAND." 

1998 GOTO 1990 
2000 X5=X5t| 
2020 B5=0 
2040 GOTO 100 
2046 END 
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Letter 



LETTER is similar to the game 
GUESS in which you guess a number 
chosen by the computer; in this 
program, the computer picks a random 
letter of the alphabet and you must 
guess which one it is using the clues 
provided as you go along. It should not 
take you more than five guesses to get 
the mystery letter. 

The program which appears here is 
loosely based on the original written by 
Bob Albrecht of People's Computer 
Company. 



LETTER 
CREATIVE COHPUTINO HQRRISTOUN, NEU JERSEY 

LETTER GUESSING GAME 

I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z. 
TRY TO GUESS HY LETTER AND I'LL GIVE YOU CLUES 
AS TO HOU CLOSE YOU'RE BETTING TO MY LETTER. 

O.K., I HAVE A LETTER. START GUESSING. 

UHAT IS YOUR GUESS? N 

TOO HIGH. TRY A LOUER LETTER. 

UHAT IS YOUR GUESS? F 



10 PRINT TAB<33);"LETTER" 

20 PRINT TAB(15); M EREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

100 PRINT "LETTER GUESSING GAHE": PRINT 

210 PRINT "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z." 

220 PRINT "TRY TO 0UESS HY LETTER AND I'LL GIME YOU CLUES" 

230 PRINT "AS TO HOU CLOSE YOU'RE GETTING TO HY LETTER." 

310 L=65+INT(RND(1>»26) 

320 G=0 

340 PRINT: PRINT "O.K., I HAVE A LETTER. START GUESSING." 

410 PRINT! PRINT "UHAT IS YOUR GUESS"; 

420 G=Bt1 

430 INPUT At: A"ASC(A«>: PRINT 

440 IF A*L THEN 500 

4S0 IF A>L THEN 480 

440 PRINT "TOO LOU. TRY A HIGHER LETTER.": GOTO 410 

480 PRINT "TOO HIGH. TRY A LOUER LETTER.": OOTO 410 

500 PRINT: PRINT "YOU GOT IT IN";G;"GUESSES! I" 

504 IF fl<*5 THEN 508 

506 PRINT "BUT IT SHOULDN'T TAKE HORE THAN 5 GUESSESI": GOTO 515 

508 PRINT "BOOD JOB II! ! I" 

510 FOR N=1 TO 15: PRINT CHRM7);: NEXT N 

515 PRINT 

520 PRINT "LET'S PLAY AGAIN " 

530 GOTO 310 
9?? END 

SYSTEH RESPONSE HAY BE SLOU AT TIHES. CURRENTLY RUNNING ON 192K OF MEHORY. 
READY 
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YOU GOT IT IN 2 GUESSESI! 
GOOD JOB lllll 

LET'S PLAY AGAIN 

O.K., I HAVE A LETTER. START GUESSING. 

UHAT IS YOUR GUESS? H 

TOO HIBH. TRY A LOUER LETTER. 

UHAT IS YOUR GUESS? F 

TOO HIGH. TRY A LOUER LETTER. 

UHAT IS YOUR BUESS? C 

TOO LOU. TRY A HIGHER LETTER. 

UHAT IS YOUR BUESS? E 

TOO HIGH. TRY A LOUER LETTER. 

UHAT IS YOUR GUESS? D 

YOU GOT IT IN 5 GUESSESI I 
GOOD JOB I!!!! 

LET'S PLAY ABAIN 

O.K., I HAVE A LETTER. START GUESSING. 

UHAT IS YOUR GUESS? 

BREAK IN 430 



Life 



The Game of Life was originally 
descfifJedHf); Scientific American, Oc- 
tober 197t)7 in an article by Martin 
Gardner. The game itself was 
originated by John Conway of Gonville 
and Caius College, University of Cam- 
bridge, England. 

In the "manual" game, organisms 
exist in the form of counters (chips or 
checkers) on a large checkerboard and 
die or reproduce according to some 
simple genetic rules. Conway's criteria 
for choosing his genetic laws were 
carefully delineated as follows: 

1 . There should be no initial pattern for 
which there is a simple proof that the 
population can grow without limit. 

2. There should be initial patterns that 
apparently do grow without limit. 

3. There should be simple initial 
patterns that grow and change for a 
considerable period of time before 
coming to an end in three possible 
ways: fading away completely (from 
overcrowding or from becoming too 
sparse), settling into a stable con- 
figuration that remains unchanged 
thereafter, or entering an oscillating 
phase in which they repeat an 
endless cycle of two or more periods. 

In brief, the rules should be such as 
to make the behavior of the population 
relatively unpredictable. Conway's 
genetic laws are delightfully simple. 
First note that each cell of the checker- 
board (assumed to be an infinite plane) 
has eight neighboring cells, four adja- 
cent orthogonally, four adjacent 
diagonally. The rules are: 

1 . Survivals. Every counter with two or 
three neighboring counters survives 
for the next generation. 

2. Deaths. Each counter with four or 
more neighbors dies (is removed) 
from overpopulation. Every counter 
with one neighbor or none dies from 
isolation. 

3. Births. Each empty cell adjacent to 
exactly three neighbors — no more, 
no fewer— • is a birth cell. A counter is 
placed on it at the next move. 

It is important to understand that all 
births and deaths occur simultaneous- 
ly. Together they constitute a single 
generation or, as we shall call it, a 
"move" in the complete "life history" of 
the initial configuration. 



You will find the population con- 
stantly undergoing unusual, 
sometimes beautiful and always unex- 
pected change. In a few cases the 
society eventually dies out (all 
counters vanishing), although this may 
not happen until after a great many 
generations. Most starting patterns 
either reach stable figures — Conway 
calls them "still lifes" — that cannot 
change or patterns that oscillate 
forever. Patterns with no initial 
symmetry tend to become 
symmetrical. Once this happens the 
symmetry cannot be lost, although it 
may increase in richness. 

Conway used a DEC PDP-7 with a 
graphic display to observe long-lived 
populations. You'll probably find this 
more enjoyable to watch on a CRT than 
a hard-copy terminal. 

Since MITS 8K BASIC does not have 
LINE INPUT, to enter leading blanks in 
the pattern, type a "." at the start of the 
line. This will be converted to a space 
by BASIC, but it permits you to type 
leading spaces. Typing DONE in- 
dicates that you are finished entering 
the pattern. See sample run. 

Clark Baker of Project DELTA 
originally wrote this version of LIFE 
which was further modified by Steve 
North of Creative Computing. 



LIFE 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 
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2 PRINT TAB(34)J"LIFE" 

4 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

6 PRINT: PRINT: PRINT 

8 PRINT "ENTER YOUR PATTERN:" 

9 Xl-tl Y1«l! X2=24: Y2«70 

10 DIN A(24,70),B*(24) 
20 C«1 

30 INPUT MIC) 

40 IF B»<O«"D0NE" THEN B«<C>»"": OOTO 80 

50 IF LEFTt(B»(C>,1>«"." THEN B»(C)»" "+RIOHT><B»(C>,LEN<B$<C> 1-1 > 

60 C-C+1 

70 OOTO 30 

80 C-C-1: L»0 

90 FOR X=l TO C-1 

100 IF LEN(B«(X))H THEN L"LEN<B»(X> ) 

110 NEXT X 

120 X1«11-C/2 

130 Y1-33-L/2 

140 FOR X»1 TO C 

150 FOR Y-1 TO LEN(B«(X)> 

160 IF HIB»(BI(X),Y,1)<>" " THEN A(X1*X,Y1+Y)=1 :P«P+1 

170 NEXT Y 

180 NEXT X 

200 PRINT:PRINT:PRINT 

210 PRINT "GENERATION:";G,"POPULATI0N:";P;: IF I? THEN PRINT "INVALID"; 

215 X3-24: Y3-70: X4-I: Y4=1: P»0 

220 B=B+1 

225 FOR X=l TO X1-1: PRINT: NEXT X 

230 FOR X"X1 TO X2 

240 PRINT 

250 FOR Y«Y1 TO Y2 

253 IF A(X,Y)-2 THEN *<X,Y)-0: OOTO 270 

256 IF A(X,Y)-3 THEN A(X,Y)=1: GOTO 261 



260 IF A(X,Y)<>1 THEN 270 

261 PRINT TAB(Y);**»; 

262 IF X<X3 THEN X3"X 
264 IF X>X4 THEN X4-X 
266 IF Y<Y3 THEN Y3«Y 
268 IF Y>Y4 THEN Y4«Y 
270 NEXT Y 

290 NEXT X 

295 FOR X=X2+1 TO 24: PRINT: NEXT X 

299 X1-X3: X2«X4: Y1=Y3: Y2»Y4 

301 IF XK3 THEN X1=3: 19*- 1 

303 IF X2>22 THEN X2=22: I9--1 

305 IF YK3 THEN Y1»3: I9=-1 

307 IF Y2>68 THEN Y2*68: 19—1 

30? P-0 

500 FOR X«X1-1 TO X2t1 

510 FOR Y«Y1-1 TO Y2+1 

520 C'O 

530 FOR I-X-1 TO X+1 

540 FOR J»Y-I TO Ytl 

550 IF A<I,J>*1 OR A(I,J)«2 THEN OC+1 

560 NEXT J 

570 NEXT I 

580 IF A(X,Y)=0 THEN 610 

590 IF C<3 OR C>4 THEN A(X,Y)«2: OOTO 600 

595 P'P+1 

600 60T0 620 

610 IF C=3 THEN A(X,Y>»3| P-P+1 

620 NEXT Y 

630 NEXT X 

635 X1=X1-1: Y1=Y1-1: X2»X2+1: Y2-Y2+1 

640 GOTO 210 

630 END 
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Life for Two 



LIFE-2 is based on Conway's game 
of Life. You must be familiar with the 
rules of LIFE before attempting to play 
LIFE-2. 

There are two players; the game is 
played on a 5x5 board and each player 
has a symbol to represent his own 
pieces of 'life.' Live cells belonging to 
player 1 are represented by '*' and live 
cells belonging to player 2 are repre- 
sented by the symbol '#'. 

The # and * are regarded as the same 
except when deciding whether to 
generate a live cell. An empty cell 
having two '#' and one '*' for neighbors 
will generate a '#', i.e. the live cell 
generated belongs to the player who 
has the majority of the 3 live cells 
surrounding the empty cell where life is 
to be generated, for example: 



12 3 4 5 

l 

2 * 

3 # 

4 # 
5 



A new cell will be generated at (3,3) 
which will be a '#' since there are two '#' 
and one '*' surrounding. The board will 
then become: 





1 


2 


3 


4 


5 


1 












2 












3 






# 


# 




4 












5 













On the first move each player 
positions 3 pieces of life on the board 
by typing in the co-ordinates of the 
pieces. (In the event of the same cell 
being chosen by both players that cell 
is left empty.) 

The board is then adjusted to the 
next generation and printed out. 

On each subsequent turn each 
player places one piece on the board, 
the object being to annihilate his 
opponent's pieces. The board is ad- 
justed for the next generation and 
printed out after both players have 
entered their new piece. 

The game continues until one player 
has no more live pieces. The computer 
will then print out the board and 
declare the winner. 

The idea for this game, the game 
itself, and the above write-up were 
written by Brian Wyvill of Bradford 
University in Yorkshire, England. 



2 PRINT TAB(33);"LIFE2* 

4 PRIHT TAB< 15); "CREATIVE COMPUTIHO HORRISTOUN, NEU JERSEY" 

4 PRINTiPRINTlPRIHT 

7 DIN N(4,4>,K(18),A<14>,X<2),Y<2> 

8 DATA 3,102,103,120,130,121,112,111,12 

9 DATA 21,30,1020,1030,1011,1021,1003,1002,1012 

10 FOR H«1 TO 18l READ K<H)i NEXT N 

13 DATA -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1 

14 FOR 01« 1 TO Ui READ A(0l)t NEXT 01 
20 GOTO 500 

30 FOR J*1 TO 5 

51 FOR K«l TO 3 

SS IF N<J,K»99 THEN 0OSUI 200 

40 NEXT K 

13 NEXT J 

90 K-0i H2*0l N3'0 

99 FOR J«0 TO 4i PRINT 

100 FOR K*0 TO 4 

101 IF JO0 THEN IF J<>4 THEN 105 

102 IF K*4 THEN PRINT 0;: 0OTO 123 

103 PRINT X;i OOT0 120 

105 IF KO0 THEN IF K<>4 THEN 110 

104 IF J*4 THEN PRINT Oi 0OTO 124 
10? PRINT j;i B0T0 120 

110 00SUB 300 

120 NEXT K 

125 NEXT J 

124 RETURN 

200 l«1i IF N(J,K»999 THEN 8-10 

220 FOR 01* 1 TO 15 STEP 2 

230 N(JtA(01),KtA(01+1))*N(J+A(01),KtA(01+1H»S 

231 NEXT 01 
239 RETURN 

300 IF N(J,K)<3 THEN 399 

305 FOR 01*1 TO 18 

310 IF N(J,K)*K(01) THEN 330 

313 NEXT 01 

320 B0T0 399 

350 IF 01>9 THEN 340 

351 N(J,K)*100i N2-H2+1I PRINT " ♦ "; 
355 RETURN 



340 N(J,K)*1000l H3»N3*1l PRINT " « •; 

345 RETURN 

399 N(J,K)-0l PRINT " "J: RETURN 

500 PRINT TAB(10)J"U.B. LIFE 0AHE" 

303 N2«0! H3*0 

310 FOR J»1 TO 5 

511 FOR K'l TO 5 

SIS N(J,K)*0 

314 NEXT K 

31? NEXT J 

519 FOR B»1 TO 2: P1»3l IF B-2 THEN P1=30 

320 PRINT "PLAYER";B,- - 3 LIVE PIECES." 

535 FOR K1*1 TO 3: 80SUB 700 

340 N(X(B),T(I))-P1l NEXT K1 

542 NEXT B 

539 60SUB 90 

540 PRINTi 60SUB SO 

370 IF H2-0 THEN IF H3»0 THEN 574 

371 IF H3-0 THEN B*1| SOTO 575 

372 IF H2-0 THEN 1*2: 8OT0 575 
573 80T0 580 

374 PRINTI PRINT *A DRAM H |ST0P 

575 PRINTI PRINT "PLAYER" JB;"IS THE UINNER"t STOP 

580 FOR B»1 TO 2: PRINT! PRINT "PLAYER";B;i G0SUB 700 

381 IF B*99 THEN 540 

382 NEXT B 

584 N(X(1),Y(1))*100l N(X(2),Y(2))*1O00 
594 BOTO 340 

700 PRINT "X,Y"iPRINT"XXXXXX";CHR«(13>;"«»»»»»";CHR«<13);"mm" 

701 PRINT CHRM13);: INPUT Y(B),X(B) 
70S IF X(B)<*5 THEN IF X(B)>0 THEN 708 
704 GOTO 7S0 

708 IF Y(B)<*5 THEN IF Y<B»0 THEN 713 

710 BOTO 750 

715 IF N(X(B>,Y(B))<>0 THEN 750 

720 IF B*1 THEN RETURN 

725 IF X(1)-X(2) THEN IF Y(1)-Y(2) THEN 740 

730 RETURN 

740 PRINT "SANE COORD. SET TO 0" 

74t N(X(B)t1,Y(B)*1)«0i B«99i RETURN 

750 PRIHT "ILLEGAL COORDS. RETYPE"! BOTO 700 

999 END 
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LIFE2 
CREATIVE COMPUTING HORRISTOUH, NEU JERSEY 



U.S. LIFE OAHE 
PLAYER 1 - 3 LIVE PIECES. 
X,Y 

mill 

X,Y 

mm 

X,Y 

mill 

PLAYER 2-3 LIVE PIECES. 
X,Y 

mill 

X,Y 

mm 

X,Y 

mill 

12 3 4 3 

1 * • 1 

2 ♦ 2 

3 II 3 

4 II 4 
3 8 5 

1 2 3 4 S 

0)23430 

1 « « t 

2 * 2 

3 8 3 

4 8 8 8 4 

5 5 
12 3 4 5 

PLAYER 1 X,Y 
8II|II 

PLAYER 2 X,Y 

mill 



12 3 4 5 

1 • « 1 

2 2 

3 « 8 3 

4 i a h a 4 
s ii a 5 

12 3 4 3 
PLAYER 1 X,Y 

mill 

PLAYER 2 X,Y 
8IS|II 



12 3 4 5 

1 » * 1 

2 « « 2 

3 » a a 3 

4 a a 4 
s a s 

12 3 4 5 
PLAYER 1 X,Y 

mill 

PLAYER 2 X,Y 

mill 



12 3 4 5 

1 » » I 

2 • « 2 

3 * a 3 

4 a a a a 4 

5 5 
12 3 4 3 



PLAYER 1 X,Y 

mill 

PLAYER 2 X,Y 

mm 



12 3 4 5 

i » « a t 

2 « a a 2 

3 • 3 

4 a a a a 4 
s a 5 

12 3 4 5 
PLAYER 1 X r Y 

mill 

PLAYER 2 X,Y 

mm 



12 3 4 5 

1 « 8 1 

2 2 

3 3 

4 a 4 

5 a a a s 

12 3 4 5 
PLAYER 1 X,Y 

mill 

PLAYER 2 X,Y 

mill 



12 3 4 5 



2 » • a 

3 a a 

4 a a 
s a a 

12 3 
PLAYER 1 X,Y 

mill 


4 


2 
3 
4 

5 
5 


PLAYER 2 X,Y 

mill 

SANE COORD. 


SET TO 


12 3 

1 


4 


3 

1 


2 * * a 

3 a 

4 a 

s a a 

12 3 
PLAYER 1 X,Y 

mill 


a 

4 


I 

2 
3 
4 
3 
3 


PLAYER 2 X r Y 

mill 







PLAYER 1 X,Y 

mm 

PLAYER 2 X,Y 

mm 



12 3 4 5 

i • a i 

2 » 2 

3 i a a 3 

4 a a a 4 

5 a a a s 

1 2 3 4 5 O 
PLAYER 1 X,Y 
8IIIII 

PLAYER 2 X,Y 
lll|ll 



12 3 4 5 

i ♦ a 1 

2 2 

3 B 3 

4 8 4 

5 a 8 a 3 
12 3 4 3 

PLAYER 1 X,Y 

mm 



PLAYER 


2 


X,Y 








mm 












1 

i 


2 

a 


3 


4 


5 




1 


2 


a 




a 




2 


3 




* 


a 




3 


4 








a 


4 


5 






a 


a 


5 


t 


2 


3 


4 


3 





PLAYER 


1 


X r Y 








min 












PLAYER 


2 


X,Y 








min 












1 


2 


, 3 


4 


5 





1 


« 


\ 






1 


2 


a 




a 




2 



12 3 4 5 

i * a a i 

2 ♦ 2 

3 a 3 

4 a a4 

3 8 8 3 

12 3 4 3 



3 8 3 

4 * a 4 

5 8 8 3 
12 3 4 5 

PLAYER 1 X,Y 

min 

PLAYER 2 X,Y 
llilil 



12 3 4 5 

1 8 1 

2 a 2 

3 ♦ 8 3 

4 « » 8 4 

5 8 8 8 3 
12 3 4 5 



PLAYER 1 X,Y 

min 

PLAYER 2 X,Y 

min 



12 3 4 3 

1 1 

2 8 2 

3 » 3 

4 • a 4 

3*8 885 

12 3 4 3 
PLAYER 1 X,Y 

min 

PLAYER 2 X,» 

mm 



1 2 3 4 5 O 

1 1 

2 • 2 

3 • 8 8 3 

4 * 8 8 8 4 

5 » 8 « 8 « 5 
12 3 4 3 

PLAYER 1 X,Y 

mm 

PLAYER 2 X,Y 
llilil 



12 3 4 5 

1 1 

2 * 2 

3 • « 3 

4 » 4 
3 » 8 3 
12 3 4 5 

PLAYER 1 X,Y 

sii|ii 

PLAYER 2 X,Y 

mm 



12 3 4 3 

1 1 

2 » ♦ 2 

3 » 3 

4 ♦ 8 4 

5 3 
12 3 4 5 

PLAYER 1 X,Y 

mm 

PLAYER 2 X,Y 

min 



12 3 4 5 

1 ♦ * 1 

2 * » 2 

3 * 3 

4 4 

5 5 
12 3 4 3 

PLAYER 1 IS THE UINNER 
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Literature Quiz 




This is a simple CAI-type program 
which presents four multiple-choice 
questions from children's literature. 
Running the program is self- 
explanatory. 

The program was written by Pamela 
McGinley while at DEC. 



LITERATURE QUIZ 
CREATIVE COHPUTIHO HQRRISTOUN, NEU JERSEY 



TEST TOUR KN0ULED6E OF CHILDREN'S LITERATURE. 

THIS IS A MULTIPLE-CHOICE QUIZ. 

TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK. 

GOOD LUCK I 



IN PINOCCHIO, UHAT UAS THE NAME OF THE CAT 
11TIGGER, 21CICER0, 31FIBAR0, OGUIPETTO? 2 
SORRY... FIGARO UAS HIS NAHE. 



FROH UHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS'? 

DHR. NIXON'S, 2IELHER FUDD'S, 31CLEM JUDD'S, 4)STROHBOLI'S7 2 

PRETTY GOOD; 



IN THE UIZARD QF OZ, DOROTHY'S DOG UAS NAHED 
1) CICERO, 2) TRIXIE, 3) KING, 4) TOTO ? 4- 
YEAI YOU'RE A REAL LITERATURE GIANT. 



UNO UAS THE FAIR HAIDEN UHO ATE THE POISON APPLE 
I1SLEEPIN6 BEAUTY, 2)CINDERELLA, 3>SNOU UNITE, 4JUENBY7 1 
OH, COKE ON N0U...IT UAS SNOU UNITE. 



NOT BAD, BUT YOU NIBHT SPEND A LITTLE NORE TIHE 
READING THE NURSERY GREATS. 

BREAK IN 96 



HORRISTQUN, NEU JERSEY 



1 PRINT TAB(25);"LITERATURE QUIZ" 

2 PRINT TAB(I5);"CREATIVE COMPUTING 

3 PRINT:PRINT:PRINT 
5 R=0 

10 PRINT "TEST YOUR KNOULEDGE OF CHILDREN'S LITERATURE." 

12 PRINT: PRINT "THIS IS A HULTIPLE-CHOICE QUIZ." 

13 PRINT "TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK." 
15 PRINT: PRINT "GOOD LUCKI": PRINT: PRINT 

40 PRINT "IN PINOCCHIO, UHAT UAS THE NAHE OF THE CAT" 

42 PRINT "DTIGGER, 21CICER0, 31FIGARO, 41GUIPETT0"; 

43 INPUT A: IF A=3 THEN 46 

44 PRINT "SORRY. ..FIGARO UAS HIS NAME.": GOTO 50 

46 PRINT "VERY GOODI HERE'S ANOTHER." 

47 R«R*1 

50 PRINT: PRINT 

51 PRINT "FROH UHOSE GARDEN DID BUOS BUNNY STEAL THE CARROTS?" 

52 PRINT "DHR. NIXON'S, 2IELHER FUDD'S, 3>CLEM JUDD'S, 4)STR0MB0LI'S" 

53 INPUT A: IF A»2 THEN 56 

54 PRINT "TOO BAD. ..IT UAS ELHER FUDD'S GARDEN.": OOTO 60 

56 PRINT "PRETTY GOODI" 

57 R=R+1 

60 PRINT: PRINT 

61 PRINT "IN THE UIZARD OF OZ, DOROTHY'S DOG UAS NAHED" 

62 PRINT "1) CICERO, 2) TRIXIE, 3) KING, 4) TOTO "; 

63 INPUT A: IF AM THEN 66 

44 PRINT "BACK TO THE BOOKS, ...TOTO UAS HIS NAME.": GOTO 70 

46 PRINT "YEAI YOU'RE A REAL LITERATURE GIANT." 

47 R*Rt| 

70 PRINT:PRINT 

71 PRINT "UHO UAS THE FAIR MAIDEN UHO ATE THE POISON APPLE" 

72 PRINT "DSLEEPING BEAUTY, 21CINDERELLA, 3)SNOU UHITE, 4IUENDY": 

73 INPUT A: IF A«3 THEN 76 

74 PRINT "OH, COME ON HOM...IT UAS SNOU UHITE." 
n GOTO 80 

76 PRINT "BOOB MEMORY I" 

77 R«Rt1 

80 PRINT:PRINT 

85 IF R*4 THEN 100 

90 IF R<2 THEN 200 

92 PRINT "NOT BAB, BUT YOU MI6HT SPENB A LITTLE NQRE TIME" 

94 PRINT "READING THE NURSERY GREATS.* 

96 STOP 

100 PRINT "UOUI THAT'S SUPERI YOU REALLY KNOU YOUR NURSERY" 

110 PRINT "YOUR NEXT QUIZ UILL BE ON 2NB CENTURY CHINESE" 

120 PRINT "LITERATURE (HA, HA, HA)" 

130 STOP 

200 PRINT "UGH. THAT UAS DEFINITELY NOT TOO SUIFT. BACK TO" 

205 PRINT "NURSERY SCHOOL FOR YOU, NY FRIEND." 

999 END 
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Love 



This program is designed to 
reproduce Robert Indiana's great art 
work "Love" with a message of your 
choice up to 60 characters long. 

Your message is input as A$ in 
Statement 60. Statements 100-130 
repeat the message A$ if it is less than 
60 characters long and insert it intoT$. 
Statements 210-400 actually print the 
design. The data statements are an 
alternating count of the number of 
characters and blanks which form the 
design. These data give the correct 
proportions for a standard 1 character 
per inch Teletype or line printer. The 
13.2 characters per inch of the Teletype 
Model 43 on which this was printed 
cause some distortion. 

The love program was created by 
David Ahl. 



LOME 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 

A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA. 
HIS GREAT UORK UILL BE REPRODUCED UITH A MESSAGE OF 
YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN'T THINK OF 
A MESSAGE, SIHPLE TYPE THE UORD 'LOVE' 

YOUR MESSAGE, PLEASE? LOVE 



L0VEL0VEL0VEL0VEL0VELOVEL0VELOVEL0VELOVEL0VEL0VEL0VELOVEL0VE 



L 


OVELOVELOVELOVELOVELOVELOV LOVELOVELOVE 


LOV 


ELOVELOVELOVELOVELOVELOV 


LOVELOVE 


LOVE 


VELOVELOVELOVELOVELOVEL 


VELOME 


LOVE 


VELOVELOVELOVELOVELOVE 


LOVEL ELOVE 


LOVE 


VELOVELOVELOVELOVELOV 


VELOVELO LOVE 


LOVE 


VELOVELOVELOVELOVELOV 


OVELOVELOV LOVE 


LOVE 


VELOVELOVELOVELOVELOV 


LOVELOVELOV LOVE 


LOVE 


VELOVELOVELOVELOVELOV 


ELOVELOVELO LOVE 


LOVE 


VELOVELOVELOVELOVELOV 


VELOVELOMEL LOVE 


LOVE 


VELOVELOVELOVELOVELOV 


OVELOVELOVE LOVE 


LOVE 


VELOVELOVELOVELOVEL V LOVELOVELOV LOVE 


LOVE 


VELOVELOVELOVELOVEL V LOVELOVELO LOVE 


LOVE 


VELOVELOVELOVELOVE V 


OVELOVEL LOVE 


LOVE 


VELOVELOVELOVELOV V 


VELOV LOVE 


LOVE 


VELOVELOVELOVEL VE 


ELOVE 


L 


VELOV 


LOVELOVE 


L 


VELOVELOV LOVELOVELOVE 


L 


VELOV 


E 


L 


VELOV 


E 


LOVE 


VELOVELOVELOV VELOVELOVE 


VELOVELOVELO E 


LOVEL 


ELOVELOVELO OVELOVELOVE 


VELOVELOVELOVE E 


LOVEL 


ELOVELOVELO OVELOVELOVE 


VELOVELOVELOVEL E 


LOVELO 


LOVELOVEL LOVELOVELOVE 


VELOVELOVELOVELO E 


LOVELO 


LOVELOVEL LOVELOVELOVE 


VELOVEL VELOVELOVE 


LOVELOV 


OVELOVE ELOVELOVELOVE 


VELOVE VELOVELOVE 


LOVELOV 


OVELOVE ELOVELOVELOVE 


VELOVELOVE 


LOVELOVE 


VELOV VELOVELOVELOVE 


VELOVE VELOVELOVE 


LOVELOVE 


VELOV VELOVELOVELOVE 


VELOVEL VELOVELOVE 


LOVELOVEL 


ELO OVELOVELOVELOVE 


VELOVELOVELOVELO E 


LOVELOVEL 


ELO OVELOVELOVELOVE 


VELOVELOVELOVEL E 


LOVELOVELO L LOVELOVELOVELOVE 


VELOVELOVELOVE E 


LOVELOVELO LOVELOVELOVELOVE 


VELOVELOVELO E 


LOVELOVELOV ELOVELOVELOVE 


E 


LOVELOVELOV ELOVELOVELOVE 


E 



2 PRINT TAB(33);"L0VE" 

4 PRINT TAB(15)j"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

6 PRINT: PRINT: PRINT 

20 PRINT "A TRIBUTE TO THE OREAT AHERICAN ARTIST, ROBERT INDIANA." 

30 PRINT "HIS OREAT UORK UILL BE REPRODUCED UITH A MESSAGE OF" 

40 PRINT "YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN'T THINK OF" 

50 PRINT "A MESSAGE, SIMPLE TYPE THE UORD 'LOVE'": PRINT 

60 INPUT "YOUR HESSAOE, PLEASE";A»: L=LEN(A$) 

70 DIM T«<120>: FOR 1=1 TO 10: PRINT: NEXT I 

100 FOR J=0 TO INTI60/L) 

110 FOR 1=1 TO L 

120 T»(J*LtI)=MID»(A»,I,1) 

130 NEXT I: NEXT J 

140 C=0 

200 A1=1: P=1: C=C+1: IF C=37 THEN 999 

205 PRINT 

210 READ A: A1=A1*A: IF P=1 THEN 300 

240 FOR 1=1 TO A: PRINT " ";: NEXT I: P=1: GOTO 400 

300 FOR I=A1-A TO A1-1: PRINT T»(I>;: NEXT I: P=0 

400 IF A1>60 THEN 200 

410 GOTO 210 

600 DATA 60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5 

610 DATA 4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,7,11,5,4 

620 DATA 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4 

430 DATA 4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4 

440 DATA 4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8 

450 DATA 1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1 

660 DATA 5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1 

670 DATA 6,6,9,3,12,6,16,1,1,6,6,9,3,12,4,7,1,10 

680 DATA 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,4,6,2,10 

690 DATA 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1 

700 DATA 9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1 

710 DATA 11,8,13,27,1,11,8,13,27,1,60 

999 FOR 1=1 TO 10: PRINT: NEXT I: END 



LOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVELOVE 
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Lunar LEH Rocket 



This game in its many different 
versions and names (ROCKET, 
LUNAR, LEM, and APOLLO) is by far 
and away the single most popular 
computer game. It exists in versions 
that start you anywhere from 500 feet to 
200 miles above the moon, or other 
planets, too. Some allow the control of 
directional stabilization rockets and/or 
the retro rocket. The three versions 
presented here represent the most 
popular of the many variations. 

In most versions of this game, the 
temptation is to slow up too soon and 
then have no fuel left for the lower part 
of the journey. This, of course, is 
disasterous (as you will find out when 
you land your own capsule)! 

LUNAR was originally in FOCAL by 
Jim Storer while a student at Lexington 
High School and subsequently con- 
verted to BASIC by David Ahl. 
ROCKET was written by Eric Peters at 
DEC and LEM by William Labaree II of 
Alexandria, Virginia. 

In this program, you set the burn rate 
of the retro rockets (pounds of fuel per 
second) every 10 seconds and attempt 
to achieve a soft landing on the moon. 
200 lbs/sec really puts the brakes on, 
and lbs/sec is free fall. Ignition occurs 
at 8 lbs/sec, so do not use burn rates 
between 1 and 7 lbs/sec. To make the 
landing more of a challenge, but more 
closely approximate the real Apollo 
LEM capsule, you should make the 
available fuel at the start (N) equal to 
16,000 lbs, and the weight of the 
capsule (M) equal to 32,500 lbs in 
Statement 15. 

Some versions of BASIC object to 
the series expansion calculations in 
Statements 420 and 430 (as you near 
the lunar surface, these numbers get 
very small). If your does, substitute the 
following expanded form for the ex- 
pansion in Statement 420; 
-Q"(1+Q*(1/2+Q*(1/3+Q*(1/4+Q/5)))) 

You should be able to figure the 
other one out yourself. 

LUNAR 
CREATIVE COHPUTINO NQRRISTOUN, NEU JERSEY 

THIS IS A COHPUTER SIMULATION OF AN APOLLO LUNAR 
LANDIN6 CAPSULE. 

THE 0N-B0ARD COHPUTER HAS FAILED 

SO YOU HAVE TO LAND THE CAPSULE HANUALLY. 

SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETUEEN 

(FREE FALL) AND 200 (HAXIHUH BURN) POUNDS PER SECOND. 

SET NEU BURN RATE EVERY 10 SECONDS. 

CAPSULE UEIOHT 32,500 LBS; FUEL UEIQHT 14,500 LBS. 



0D0D LUCK 
















SEC 


HI t 


FT 


HPH 




LB FUEL 


BURN RATE 





120 





3400 




14500 


T 





10 


to? 


5015 


3434 




14500 


7 





20 


9? 


4223 


3472 




14500 


7 





30 


8? 


2903 


3708 




14500 


7 





40 


79 


1055 


3744 




14500 


7 





50 


48 


3959 


3780 




14500 


7 





40 


58 


1055 


3814 




14500 


7 





70 


47 


2903 


3852 




14500 


7 


200 


80 


37 


1883 


3482. 


,87 


14500 


7 


200 


90 


28 


1191 


3084. 


,71 


12500 


T 


200 


100 


20 


1251 


2459, 


,45 


10500 


T 


200 


110 


13 


2549 


2194. 


,95 


8500 


? 


200 


120 


8 


370 


1492. 


,43 


4500 


7 


100 


130 


3 


3778 


1440. 


,59 


5500 


7 
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MORRI5T0UN, NEU JERSEY" 



OH NOON AT 139.924 SECONDS - IHPACT VELOCITY 1253.25 HPH 

SORRY THERE UERE NO SURVIVORS. YOU BLEU ITI 

III FACT, YOU BLASTED A NEU LUNAR CRATER 347.15 FEET DEEPI 

TRY AGAIN?? 

tO PRINT TAB(33!;"LUNAR" 

20 PRINT TAB(15);"CREATIVE COMPUTING 

25 PRINT:PRINT:PRINT 

30 PRINT "THIS IS A COHPUTER SIMULATION OF AN APOLLO LUNAR" 

40 PRINT "LANDING CAPSULE.": PRINT: PRINT 

50 PRINT "THE 0N-B0ARD COMPUTER HAS FAILED (IT UAS MADE BY" 

40 PRINT "XEROX! SO YOU HAVE TO LAND THE CAPSULE MANUALLY." 

70 PRINT: PRINT "SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETUEEN" 

80 PRINT "0 (FREE FALL) AND 200 (HAXIMUM BURN) POUNDS PER SECOND." 

90 PRINT "SET NEU BURN RATE EVERY 10 SECONDS.": PRINT 

100 PRINT "CAPSULE UEIBHT 32,500 LBS; FUEL UEIOHT 16,500 LBS." 

110 PRINT: PRINT: PRINT: PRINT "GOOD LUCK" 

120 L=0 

130 PRINT: PRINT "SEC", "MI + FT","MPH", "LB FUEL", "BURN RATE":PRINT 

140 A=120:V=1:M=33000!:N = 16500:GME-03:Z = 1.8 

150 PRINT L,INT(A);lNT(5280*(A-INT(A))),3400*V,M-N,!lNPUT K:T=10 

HO IF M-N<1E-03 THEN 240 

170 IF K1E-03 THEN 150 

180 S=T: IF H>=N+S*K THEN 200 

190 S=(H-N)/K 

200 GOSUB 420: IF K=0 THEN 340 

210 IF V<=0 THEN 230 

220 IF J<0 THEN 370 

230 '6QSUB 330: GOTO 160 

24Q PRINT "FUEL OUT AT" ;L;"SEC0NDS":S=(-V+SQR(V*V+2*A*6) )/G 

250 V=V+0*S: L=L+S 

260 U=3600*V: PRINT "ON MOON AT";L;"SECQNDS - IMPACT VEL0CITY";U;"MPH" 

270 IF U<=1 .2 THEN PRINT "PERFECT LANDING!": GOT0440 

280 IF U<=10 THEN PRINT "GOOD LANDING (COULD BE BETTER)" :60T0440 

282 IF U>60THEN300 

284 PRINT "CRAFT DAMAGE... YOU'RE STRANDED HERE UNTIL A RESCUE" 

286 PRINT "PARTY ARRIVES. HOPE YOU HAVE ENOUGH OXYGEN!" 

288 GOTO 440 

300 PRINT "SORRY THERE UERE NO SURVIVORS. YOU BLEU IT!" 

310 PRINT "IN FACT, YOU BLASTED A NEU LUNAR CRATER" ;U*.277;"FEET DEEP " " 

320 GOTO 440 

330 L=L + S: T=T-S: H=M-S*K: AM: V=J: RETURN 

340 IF S<5E-03 THEN 260 

350 D=V+SQR(V*V+2*A*(G-Z*K/M)):S=2*A/D 

360 G0SUB420: GOSUB 330: GOTO 340 

370 U=(1-M*G/(Z*K)>/2: S=H*V/(Z*K*(U+SUR<U*U+V/Z> ) >+.05:GOSUB 420 

380 IF I<=0 THEN 340 

390 GOSUB 330: IF J>0 THEN 160 

400 IF V>0 THEN 370 

410 GOTO 160 

420 Q=S*K/H: J=V+G*S+Z* (-0-Q*Q/2-Q"3/3-Q "4/4-0 "5/5) 

430 I=A-G*S*S/2-V*S + Z*S*(0/2+Q'2/4+Q' 3/1 2+Q '4/20+0" 5/30 ):RETURN 

440 PRINT:PRINT:PRINT:PRINT "TRY AGAIN??": GUT0 70 
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This is the most comprehensive of 
the three versions and permits you to 
control the time interval of firing, the 
thrust, and the attitude angle. It also 
allows you to work in the metric or 
English system of measurement. The 
instructions in the program dialog are 
very complete, so you shouldn't have 
any trouble. 

LEN CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY 

LUNAR LANDING SIMULATION 

HAVE YOU FLOUN AN APOLLO/LEH HISSION BEFORE (YES OR NO)? NO 

UHICH SYSTEH OF HEASUREHENT DO YOU PREFER? 

1=NETRIC 0=ENGLISH 
ENTER THE APPROPRIATE NUHDER? I 

YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF 
THE LUNAR EXCURSION MODULE, YOU UILL BE EXPECTED TO 
GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATION SYSTEN. 
THE ON-BOARD COMPUTER UILL GIVE A RUNNING ACCOUNT 
OF INFORMATION NEEDED TO NAVIGATE THE SHIP. 

THE ATTITUDE ANGLE CALLED FOR IS DESCRIDED AS FOLLOUS. 
+ OR -180 DEGREES IS DIRECTLY AUAY FROH THE MOON 
-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT 
t90 DEGREES IS ON A TANGENT FROH THE DIRECTION OF ORBIT 
(ZERO) DEGREES IS DIRECTLY TOUARD THE NOON 

-180,180 

-90 < -+- > 90 
I 

« DIRECTION OF ORBIT « 

SURFACE OF NOON 
ALL ANGLES BETUEEN -180 AND 180 DEGREES ARE ACCEPTED. 

1 FUEL UNIT * I SEC. AT MAX THRUST 

ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL 

FOR AN ATTITUDE CHANGE. 

AVAILABLE ENGINE POUER: (ZERO) AND ANY VALUE BETUEEN 

10 AND 100 PERCENT. 

NEGATIVE THRUST OR TIME IS PROHIBITED. 

INPUT: TIME INTERVAL IN SECONDS (T) 

PERCENTAGE OF THRUST (P) 

ATTITUDE ANGLE IN DEGREES (A) 

FOR EXAMPLE: 

T,P,AT 10,45,-40 

TO ABORT THE MISSION AT ANY TINE, ENTER 0,0,0 

OUTPUT: TOTAL TIHE IN ELAPSED SECONDS 
HEIGHT IN FEET 

DISTANCE FROM LANDING SITE IN FEET 
VERTICAL VELOCITY IN FEET/SECOND 
HORIZONTAL VELOCITY IN FEET/SECOND 
FUEL UNITS REMAINING 
111168 -5.87625E+06 



T,P,A? 300,0,0 

500 104292 
T,P,A? 100,0,0 

400 104194 
T,P,AT 50,90,-90 

450 102916 
T,P,AT 100,23,0 

750 101907 
T,P,AT 50,90,-90 

800 101993 
T,P,A? 100,40,-90 

900 98339.8 
T,P,AT 50,10,0 

950 91511.4 
T,P,AT 50,100,0 

1000 93320.2 
T,P,AT 50,100,-90 

1050 94322.6 
T,P,A? 50,100,-90 

1100 93090 
T,P,AT 50,100,-90 

1150 89144.7 
T,P,A? 100,100,-90 

1250 71572.2 





19.2028 

22.7244 

30.3757 

10.351V 



-5.11633E+06 
-4.96362E+04 
-4.89021E+04 
-4.75003E+04 

-4.48314E+06 -8.74788 

-4.3622E+04 -47.3979 

-4.30472E+06 -85.7323 

-4.44704E+04 38.8848 

-4.3933E*04 -.408409 

-4.34794E+04 -50.2899 

-4.31115E+04 -108.811 

-4.26382E+06 -246.645 



1615.6 

1419.92 

1421.78 

1484.58 

1485.42 

1341.57 

1213.07 

1215.63 

1216.44 

1041.58 

862.287 

677.922 

290.394 



750 

750 

750 

705 

682.001 

637.001 

597.002 

592.002 

542.002 

492.002 

442.002 

392.002 

292.002 



T,P,AT 


50,100,0 


1300 


62203.7 


T.P.AT 


100,50,0 


1400 


52014.2 


T,P,AT 


100,40,-90 


1500 


36711.6 


T.P.AT 


50,50,90 


1550 


23159.8 


T,P,AT 


50,30,90 


1600 


5635.9 


T.CAT 


10,0,0 


1610 


1655.62 


T,P,A? 


10,100,0 


1614. 


5 -142.239 



H.24981E+06 -126.903 291.928 242.002 

-4.22147E+06 -75.8941 293.614 192.002 

-4.20102E+04 -231.303 114.821 152.002 

-4.19258E+06 -310.782 232.752 127.002 

-4.17821E+04 -390.108 352.728 102.002 

-4.17471E+04 -405.94 353.544 102.002 

-4.17312E+04 -393.08 353.917 97.5017 



CRASH Hilt I !!!!!! HI! 

YOUR IMPACT CREATED A CRATER 142.239 METERS DEEP. 

AT CONTACT YOU UERE TRAVELING 1904.15 KILOHETERS/HR 

DO YOU UANT TO TRY IT AGAIN (YES/NO)? 

1 NO THANKS I 

DO YOU UANT TO TRY IT AGAIN (YES/NO)? 

? NO 

TOO BAD, THE SPACE PROGRAH HATES TO LOSE EXPERIENCED 

ASTRONAUTS. 

2 PRINT TAB(34);"LEM" 

4 PRINT TAB( 15); "CREATIVE CONPUTING MORRISTOUN, NEU JERSEY" 

7 REM R0CKT2 IS AN INTERACTIVE GAME THAT SIMULATES A LUNAR 

8 REM LANDING IS SIMILAR TO THAT OF THE APOLLO PROGRAM. 

9 REM THERE IS ABSOLUTELY NO CHANCE INVOLVED 

10 Z$=-BO* 
15 B1«1 

20 M=17.95 

25 Fl'5.25 

30 N*7.5 

35 R0*924 

40 V0=1.29 

45 T=0 

50 H0*60 

55 RsROiHO 

60 A— 3.423 

65 R1«0 

70 A1-8.84361E-04 

75 R3«0 

80 A3°0 

85 Ml»7.45 

90 H0=H1 

95 B»?50 

100 TI=0 

105 F«0 

110 P»0 

115 N«l 

120 N2-0 

125 S«0 

130 C«0 

135 IF Z»""YES" THEN 1150 

140 PRINT 

145 PRINT "LUNAR LANDING SIMULATION" 

150 PRINT 

155 PRINT "HAVE YOU FLOUN AN APOLLO/LEH MISSION BEFORE"; 

160 PRINT " (YES OR NO)"; 

165 INPUT Q» 

170 IF 0»*"YES" THEN 190 

175 IF 0l="N0" THEN 205 

180 PRINT "JUST ANSUER THE OUESTION, PLEASE, "; 

185 GOTO 140 

190 PRINT 

195 PRINT "INPUT MEASUREMENT OPTION NUMBER"; 

200 GOTO 225 

205 PRINT 

"UHICH SYSTEM OF MEASUREMENT DO YOU PREFER?" 

" 1'METRIC 0=ENGLISH" 

"ENTER THE APPROPRIATE NUMBER"; 

K 



210 PRINT 

215 PRINT 

220 PRINT 

225 INPUT 

230 PRINT 

233 IF K-0 THEN 280 

240 IF K«1 THEN 250 

245 GOTO 220 

230 Z=1852.8 

235 MJ="METERS" 

240 G3»3.4 

245 NM* KILOMETERS 

270 65=1000 

275 80T0 305 

280 Z=6080 

285 H»»"FEET" 

290 03*. 392 
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295 Nt«="N.NILES" 

300 G5=Z 

305 IF B1=3 THEN 670 

310 IF Q»="YES" THEN 485 

315 PRINT 

320 PRINT " YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF" 

325 PRINT "THE LUNAR EXCURSION NODULE, YOU URL BE EXPECTED TO" 

330 PRINT "GIVE CERTAIN CONHANDS TO THE HODULE NAVIGATION SYSTEM." 

335 PRINT "THE ON-BOARD COHPUTER MILL GIVE A RUNNING ACCOUNT" 

340 PRINT "OF INFORMATION NEEDED TO NAVIGATE THE SHIP." 

345 PRINT 

350 PRINT 

355 PRINT "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOUS." 

360 PRINT •"♦ OR -180 DEGREES IS DIRECTLY AWAY FROH THE HOON" 

365 PRINT "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT" 

370 PRINT "+90 DEGREES IS ON A TANGENT FROH THE DIRECTION OF ORBIT" 

375 PRINT "0 (ZERO! DEGREES IS DIRECTLY TOUARD THE HOON" 

380 PRINT 

385 PRINT TAB(30);"-1B0,I80" 

390 PRINT TAB(34)J"*" 

395 PRINT TAB(27)J"-90 < -t- > 90" 

400 PRINT TAB(34);"I" 

405 PRINT TAB(34)J"0" 

410 PRINT TAB(23)J"« DIRECTION OF ORBIT «" 

415 PRINT 

420 PRINT TAB(2?);"SURFACE OF HOON" 

425 PRINT 

430 PRINT 

435 PRINT "ALL ANGLES BETUEEN -180 AND 180 DEGREES ARE ACCEPTED." 

440 PRINT 

445 PRINT "1 FUEL UNIT * 1 SEC. AT HAX THRUST" 

450 PRINT "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL" 

455 PRINT "FOR AN ATTITUDE CHANGE." 

460 PRINT "AVAILABLE ENGINE POUER: (ZERO) AND ANY VALUE BETUEEN" 

465 PRINT "10 AND 100 PERCENT." 

470 PRINT 

475 PRINT'NEOATIVE THRUST OR TIHE IS PROHIBITED." 

480 PRINT 

485 PRINT 

490 PRINT "INPUT: TIHE INTERVAL IN SECONDS (T)" 

495 PRINT " PERCENTAGE OF THRUST (P)" 

500 PRINT " ATTITUDE ANGLE IN DEGREES (A)" 

505 PRINT 

510 IF 0»="YES" THEN 535 

515 PRINT "FOR EXAMPLE:" 

520 PRINT "T,P,AT 10,65, -60" 

325 PRINT "TO ABORT THE MISSION AT ANY TIHE, ENTER 0,0,0" 

530 PRINT 

335 PRINT "OUTPUT: TOTAL TIHE IN ELAPSED SECONDS" 

540 PRINT " HEIGHT IN ";H» 

545 PRINT " DISTANCE FROM LANDING SITE IN ";H* 

550 PRINT " VERTICAL VELOCITY IN ";M»; "/SECOND" 

555 PRINT " HORIZONTAL VELOCITY IN ";M«;"/SECOND" 

560 PRINT " FUEL UNITS REMAINING" 

565 PRINT 

570 GOTO 670 

575 PRINT 

580 PRINT "T,P,A"; 

585 INPUT T1,F,P 

590 F=F/100 

595 IF TKO THEN 905 

600 IF T1=0 THEN 1090 

605 IF ABS(F-.05)>1 THEN 945 

610 IF ABS(F-.05X.03 THEN 945 

615 IF ABS(P)>180 THEN 925 

620 N=20 

625 IF TK400 THEN 635 

630 N=T1/20 

635 T1=T1/N 

640 P=P*3. 14159/180 

645 S=SIN(P) 

650 C=COS(P) 

655 H2=H0*T1*F/B 

660 R3=-.5»RO*((V0/R)-2)+R*AUA1 

665 A3=-2*R1*A1/R 

670 FOR 1=1 TO N 

675 IF M1=0 THEN 715 

680 H1=M1-M2 

685 IF H1>0 THEN 725 

690 F=F»(1tH1/H2) 

695 H2=M1*M2 

700 PRINT "YOU ARE OUT OF FUEL." 

705 H1=0 

710 GOTO 725 

715 F=0 

720 H2=0 

725 N=M-.5*H2 

730 R4=R3 

735 R3=-.5*R0*((V0/R)-2HR*A1*A1 

740 R2»(3«R3-R4)/2*.00526»F1*F*C/H 

745 A4*A3 

750 A3=-2»R1»A1/R 



755 A2=(3»A3-A4)/2t.0056«F1*F»S/(H*R) 

760 X=R1*TH.5»R2*T1*T1 

765 R=RtX 

770 HO=HO*X 

775 R1=RHR2»T1 

780 A=A*At»T1t.5*A2«T1*T1 

785 A1»A1tA2»T1 

790 H=H-.5»H2 

795 T=T+T1 

800 IF H0<3.287828E-04 THEN 810 

805 NEXT I 

810 H=HO*Z 

815 H1=R1»Z 

820 D*RO*A*Z 

825 D1=R»A1*Z 

830 T2=H1»B/H0 

835 print " •;t;t«B(10);h;TAB(23);d; 

840 PRINT TAB(37);H1;TAB(49);D1;TAB(60);T2 

845 IF H0<3.287B28E-04 THEN 880 

850 IF R0*A>164.4736 THEN 1050 

855 IF M1>0 THEN 580 

860 11=20 

865 F=0 

870 P=0 

875 GOTO 620 

880 IF RK-8.21957E-04 THEN 1020 

885 IF ABS(R*A1)>4.931742E-04 THEN 1020 

890 IF H0<-3.287828E-04 THEN 1020 

895 IF ABS(D)>10*Z THEN 1045 

900 GOTO 995 

905 PRINT 

910 PRINT "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-"; 

915 PRINT "TIHE CONTINUUH." 

920 GOTO 575 

925 PRINT 

930 PRINT "IF YOU UANT TO SPIN AROUND, GO OUTSIDE THE MODULE" 

935 PRINT "FOR AN E.V.A." 

940 GOTO 575 

945 PRINT 

930 PRINT "IMPOSSIBLE THRUST VALUE "; 

955 IF F<0 THEN 985 

960 IF F-.05<.05 THEN 975 

965 PRINT "TOO LARGE" 

970 GOTO 575 

975 PRINT "TOO SMALL" 

980 GOTO 575 

985 PRINT "NEGATIVE" 

990 GOTO 575 

995 PRINT 

1000 PRINT "TRANQUILITY BASE HERE — THE EAGLE HAS LANDED" 

1005 PRINT "CONGRATULATIONS - THERE UAS NO SPACECRAFT DAHAGE" 

1010 PRINT "YOU HAY NOU PROCEED UITH SURFACE EXPLORATION." 

1015 GOTO 1100 

1020 PRINT 

1025 PRINT "CRASH 1 1 1 1 1 1 1 1 1 1 H I ! ! !" 

1030 PRINT "YOUR IMPACT CREATED A CRATER"JABS(H) ;H$J" DEEP." 

1035 X1=SQR(D1»D1*HI»H1)*G3 

1040 PRINT "AT CONTACT YOU UERE TRAVELING";X1 ;N»;VHR" 

1043 GOTO 1100 

1050 PRINT 

1055 PRINT "YOU HAVE BEEN LOST IN SPACE UITH NO HOPE OF RECOVERY." 

1060 GOTO 1100 

1065 PRINT "YOU ARE DOUN SAFELY - " 

T075 PRINT 

40B0 PRINT "BUT HISSED THE LANDING SITE BY";ABS(D/G5);N* 

1085 6070 1100 

1090 PRINT 

1095 PRINT "MISSION ABENDED" 

1100 PRINT 

1105 PRINT "DO YOU UANT TO TRY IT AGAIN (YES/NO)?" 

1110 INPUT Z» 

1115 IF ZI="YES" THEN 20 

1120 IF Z*="NO" THEN 1130 

1125 GOTO 1105 

1130 PRINT 

1135 PRINT "TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED" 

1140 PRINT "ASTRONAUTS." 

1145 STOP 

1150 PRINT 

1155 PRINT "OK, BO YOU UANT THE COMPLETE INSTRUCTIONS OR THE INPUT 

1160 PRINT "OUTPUT STATEHENTS?" 

1165 PRINT "1=C0MPLETE INSTRUCTIONS" 

1170 PRINI "2=INPUT-0UTPUT STATEMENTS" 

1175 PRINT "3=NEITHER" 

1180 INPUT B1 

1185 Q»»"NO" 

1190- IF B1 = 1 THEN 203 

1195 Q»»"YES" 

1200 IF Bl»2 THEN 190 

1205 IF Bl=3 THEN 190 

1210 GOTO 1165 

1215 END 
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In this version, you start 500 feet 
above the lunar surface and control the 
burn rate in 1 -second bursts. Each unit 
of fuel slows your descent by 1 ft/sec. 
The maximum thrust of your engine is 
30 ft/sec/sec. 

ROCKET 
CREATIVE C0MPUTIN0 HORRISTOUN, NEU JERSEY 

LUNAR LANDING SIHULATION 

DO YOU UANT INSTRUCTIONS (YES OR NO)? YES 

YOU ARE LANDING ON THE NOON AND HAVE TAKEN OVER HANUAL 
CONTROL SOO FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A 
DOUNUARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REHAIN. 

HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE: 

(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REHAINING 
FUEL UILL BE REPORTED. 

(2) AFTER THE REPORT, A 'V UILL BE TYPED. ENTER THE 
NUMBER OF UNITS OF FUEL YOU UISH TO BURN DURING THE 
NEXT SECOND. EACH UNIT OF FUEL UILL SLOU YOUR DESCENT 
BY 1 FT/SEC. 

(3) THE NAXIHUH THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR 
30 UNITS OF FUEL PER SECOND. 

(4) UHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE 
UILL AUTOMATICALLY CUT OFF AND YOU UILL BE GIVEN A 
REPORT OF YOUR LANDING SPEED AND REHAINING FUEL. 

(5) IF YOU RUN OUT OF FUEL, THE 'V UILL NO LONGER APPEAR, 
BUT YOUR SECOND-BY-SECOND REPORT UILL CONTINUE UNTIL 
YOU CONTACT THE LUNAR SURFACE. 



BEGINNING LANDING PROCEDURE. 



GOOD L U C K I I I 



SEC FEET 


SPEED 


FUEL 


PLOT OF 


DISTANCE 


500 


50 


120 


I 




TO 










1 447.5 


55 


120 


I 




T 










2 390 


40 


120 


I 




7 










3 327.5 


65 


120 


I 


* 


7 










4 260 


70 


120 


I 


* 


T 10 










5 192.5 


65 


110 


I 


* 


T 5 










6 127.5 


45 


105 


I 


* 


T 25 










7 72.5 


45 


80 


I * 




7 25 










8 37.5 


25 


55 


I * 




7 25 










9 22.5 


5 


30 


I* 




7 7 










10 18. 5 


] 


23 


I* 




7 7 










11 14.5 


1 


16 


I* 




7 4 










12 IS 


2 


12 


I* 




7 3 










13 12 


4 


9 


I* 




7 3 










H 7 


6 


4 


I* 




7 6 










*••* OUT OF 


FUEL**** 








15 1.5 


5 





I* 




»»»♦ C0NTAC1 


' •••• 








TOUCHDOUN A1 


15.2449 


SECONDS 


, 




LANDING VELOCITY ■ 4 


.32454 FEET/SEC. 




UNITS OF 


FUEL REHAINING. 






***** SORRY, 


BUT YOU 


BLEU ITII II 




APPROPRIATE 


CONDOLENCES UILL 


BE SENT 


TO YOUR NEXT OF KIN. 


ANOTHER MISSION? NO 


THANKS 1 






CONTROL OUT. 











10 PRINT TAB(33)j"R0CKET" 

20 PRINT TAB(I5);"CREATIVE CONPUTING HORRISTOUN, NEU JERSEY" 

30 PRIHTlPRINTiPRINT 

70 PRINT "LUNAR LANDING SIHULATION" 

80 PRINT ": PRINT 

100 INPUT "DO YOU UANT INSTRUCTIONS (YES OR NO)";A* 

110 IF A««"NO" THEN 390 

160 PRINT 

200 PRINT "YOU ARE LANDING ON THE HOON AND HAVE TAKEN OVER HANUAL" 

2J0 PRINT "CONTROL 500 FEET ABOVE A OOOD LANDING SPOT. YOU HAVE A" 

220 PRINT "DOUNUARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REHAIN." 

225 PRINT 

230 PRINT "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:" 

240 PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REHAININO" 

250 PRINT " FUEL UILL BE REPORTED." 

260 PRINT "(2) AFTER THE REPORT, A '?' UILL BE TYPED. ENTER THE" 

270 PRINT " NUHBER OF UNITS OF FUEL YOU UISH TO BURN DURING THE" 

280 PRINT " NEXT SECOND. EACH UNIT OF FUEL UILL SLOU YOUR DESCENT" 

290 PRINT " BY 1 FT/SEC." 

310 PRINT "(3) THE NAXIHUH THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR" 

320 PRINT " 30 UNITS OF FUEL PER SECOND." 

330 PRINT "<4> UHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE" 

340 PRINT " UILL AUTOMATICALLY CUT OFF AND YOU UILL BE GIVEN A" 

350 PRINT " REPORT OF YOUR LANDING SPEED AND REHAINING FUEL." 

360 PRINT "(5) IF YOU RUN OUT OF FUEL, THE '7' UILL NO LONGER APPEAR," 

370 PRINT " BUT YOUR SECOND-BY-SECOND REPORT UILL CONTINUE UNTIL" 

380 PRINT " YOU CONTACT THE LUNAR SURFACE.": PRINT 

390 PRINT 'BEGINNING LANDING PROCEDURE ": PRINT 

400 PRINT "OOOD L U C K I I I" 

420 PRINT:PRINT 

430 PRINT "SEC FEET SPEED FUEL PLOT OF DISTANCE" 

450 PRINT 

455 T«0:H«500:V=50:F«120 

490 PRINT T;TAB<4);H;TAB(12>;V;TAB(20);F;TAB(29>;"r , JTAB(H/12+29);"«" 

500 INPUT B 

510 IF B<0 THEN 650 

520 IF B>30 THEN B-30 

530 IF B>F THEN B»F 

540 V1=V-B*5 

560 F»F-B 

570 H=H-.5*(V+V!> 

580 IF H<-0 THEN 470 

590 T=T+1 

400 V*V1 

410 IF F>0 THEN 490 

415 IF B*0 THEN 440 

420 PRINT "*»*• OUT OF FUEL****" 

440 PRINT T;TAB(4);H;TAB(12);VjTAB(20);F;TAB(29);"r'jTAB(H/12+29);"*" 

450 B»0 

460 60TO 540 

670 PRINT "**«• CONTACT »»**» 

480 H'H+.5*(V+V1> 

490 IF B"5 THEN 720 

700 D»(-VtS0R(V»VtH»(10-2*B)))/(5-B) 

710 8010 730 

720 D=H/V 

730 V1=V*(5-B)*B 

740 PRINT "TOUCHDOUN AT";T+D;"SECONDS." 

770 PRINT "LANDIN8 VELOCITY «";V1 j"FEET/SEC." 

780 PRINT FJ"UNITS OF FUEL REMAINING." 

790 IF V1O0 THEN 810 

800 PRINT "CONGRATULATIONS! A PERFECT LANDINOI" 

805 PRINT "YOUR LICENSE UILL BE RENEUED LATER" 

810 IF ABS(V1)<2 THEN 840 

820 PRINT "»**•* SORRY, BUT YOU BLEU ITII 1 1" 

830 PRINT "APPROPRIATE CONDOLENCES UILL BE SENT TO YOUR NEXT OF KIN." 

840 PRINT: PRINT : PRINT 

850 INPUT "ANOTHER HISSION";A» 

860 IF A»-"YES" THEN 390 

870 PRINT: PRINT "CONTROL OUT.": PRINT 

999 ENO 
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Master Mind 



In the March-April 1976 issue of Crea- 
tive we published a computerized version 
of Master Mind, a logic game. Master Mind 
is played by two people — one is called the 
code-maker; the other, the code-breaker. 
At the beginning of the game the code- 
maker forms a code, or combination of 
colored pegs. He hides these from the 
code-breaker. The code-breaker then at- 
tempts to deduce the code, by placing his 
own guesses, one at a time, on the board. 
After he makes a guess (by placing a com- 
bination of colored pegs on the board) the 
code-maker then gives the code-breaker 
clues to indicate how close the guess was 
to the code. For every peg in the guess 
that's the right color and in the right posi- 
tion, the code-breaker gets a black peg. 
For every peg in the guess that's the right 
color but not in the right position, the 
code-breaker gets a white peg. Note that 
these black and white pegs do not indicate 
which pegs in the guess are correct, but 
merely that they exist. For example, if the 
code was: 

Yellow Red Red Green 
and my guess was 

Red Red Yellow Black 
I would receive two white pegs and one 
black peg for the guess. I wouldn't know 
(except by comparing previous guesses) 
which one of the pegs in my guess was the 
right color in the right position. 

Many people have written computer 
programs to play Master Mind in the pass- 
ive role, i.e., the computer is the code- 
maker and the human is the code-breaker. 
This is relatively trivial; the challenge is 
writing a program that can also play ac- 
tively as a code-breaker. 

Actually, the task of getting the com- 
puter to deduce the correct combination is 
not at all difficult. Imagine, for instance, 
that you made a list of all the possible 
codes. To begin, you select a guess from 
your list at random. Then, as you receive 
clues, you cross off from the list those 
combinations which you know are impos- 
sible. For example if your guess is Red 
Red Green Green and you receive no 
pegs, then you know that any combination 
containing either a red or a green peg is 
impossible and may be crossed off the list. 



The process is continued until the correct 
solution is reached or there are no more 
combinations left on the list (in which case 
you know that the code-maker made a 
mistake in giving you the clues some- 
where). 

Note that in this particular implementa- 
tion, we never actually create a list of the 
combinations, but merely keep track of 
which ones (in sequential order) may be 
correct. Using this system, we can easily 
say that the 523rd combination may be 
correct, but to actually produce the 523rd 
combination we have to count all the way 
from the first combination (or the previous 
one, if it was lower than 523). Actually, this 
problem could be simplified to a conver- 
sion from base 10 to base (number-of- 
colors) and then adjusting the values used 
in the MID$ function so as not to take a 
zeroth character from a string if you want 
to experiment. We did try a version that 
kept an actual list of all possible combina- 
tions (as a string array), which was sig- 
nificantly faster than this version, but 
which ate tremendous amounts of mem- 
ory. 

At the beginning of this game, you input 
the number of colors and number of posi- 
tions you wish to use (which will directly af- 
fect the number of combinations) and the 
number of rounds you wish to play. While 
you are playing as the code-breaker, you 
may type in BOARD at any time to get a list 
of your previous guesses and clues, and 
QUIT to end the game. Note that this ver- 
sion uses string arrays, but this is merely 
for convenience and can easily be con- 
verted for a BASIC that has no string ar- 
rays as long as it has a MID$ function. This 
is because the string arrays are one-di- 
mensional, never exceed a length greater 
than the number of positions and the ele- 
ments never contain more than one 
character. 



MASTER MIND 
CREATIVE COMPUTING MORRISTCIUN, NEU JERSEY 



NUMBER OF COLORS? 4 
NUMBER OF POSITIONS? 1 
NUMBER OF ROUNDS? 1 
TOTAL POSSIBILITIES = 254 



COLOR 

BLACK 

UHITE 

RED 

GREEN 



LETTER 



ROUND NUMBER 1 



GUESS MY COMBINATION. 



MOVE » I 

YOU HAVE 

MOVE « 2 

YOU HAVE 

MOVE 8 3 

YOU HAVE 

HOVE « 4 

YOU HAVE 

MOVE H 5 

YOU GUESSED IT 

SCORE: 

COHPUTER 
HUMAN 5 



NOU I GUESS. THINK OF A COMBINATION. 
HIT RETURN UHEN READY ? 



GUESS ? BUUG 

2 BLACKS AND 

GUESS ? UURR 

2 BLACKS AND 
GUE5S T UURG 

3 BLACKS AND 
GUESS ? UUBR 

1 BLACKS AND 
GUESS ? RURG 

IN 5 MOVES! 



UHITES. 



1 UHITES. 



UHITES. 



1 UHITES. 



MY GUESS IS 

MY GUESS IS 

MY GUESS IS 

MY GUESS IS 

I GOT IT IN 

SCORE: 

COMPUTER 4 
HUMAN 5 

GAME OVER 

FINAL SCORE: 

COHPUTER 4 
HUMAN 5 



RRGR BLACKS, UHITES ? 0,1 

GBBB BLACKS, UHITES ? 3,0 

GUBB BLACKS, UHITES ? 3,0 

GGBB BLACKS, UHITES ? 4,0 
4 H0VES! 



Master Mind is a game manufactured by 
Invicta Plastics, Ltd. 
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MASTERMIND 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



NUMBER OF COLORS? 5 
NUMBER OF POSITIONS? 4 
NUMBER OF ROUNDS? 1 
TOTAL POSSIBILITIES = 425 



COLOR 



LETTER 



BLACK 


B 


UHITE 


U 


RED 


R 


GREEN 


G 


ORANGE 






ROUND NUMBER 1 



GUESS MY COMBINATION. 



GUESS ? BUBU 
1 BLACKS AND 

GUESS ? BBUO 
3 BLACKS AND 

GUESS ? BBUG 
3 BLACKS AND 

GUESS ? BBUR 
3 BLACKS AND 

GUESS 1. BBUB 

IN 5 MOVES! 



2 UHITES. 



UHITES. 



UHITES. 



UHITES. 



MOVE « 1 

YOU HAVE 

HOVE * 2 

YOU HAVE 

MOVE I 3 

YOU HAVE 

MOVE « 4 

YOU HAVE 

MOVE I 5 

YOU GUESSED IT 

SCORE: 

COMPUTER 
HUMAN S 



NOU I GUESS. THINK OF A COMBINATION 

HIT RETURN UHEN READY ? 

MY GUESS IS: BRRO BLACKS, UHITES 

RRUO. BLACKS, UHITES 

GBRO BLACKS, UHITES 

ROGO BLACKS, UHITES 
4 MOVES! 



MY GUESS IS: 

MY GUESS IS: 

MY GUESS IS: 

I GOT IT IN 

SCORE: 

COMPUTER 4 
HUMAN S 

GAME OVER 

FINAL SCORE: 

COMPUTER 4 
HUMAN 5 



1.' 
1.« 
0,2 
4,0 



2 PRINT TABOO) ["MASTER MIND" 

4 PRINT TAB(15); n CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

4 PRINT: PRINT: PRINT 

10 REM 

20 REM MASTERMIND II 

30 REM STEVE NORTH 

40 REM CREATIVE COMPUTING 

50 REM PO BOX 789-M MORRISTOUN NEU JERSEY 07940 

40 REN 

70 REM 

80 INPUT "NUMBER OF C0LORS";C9 

90 IF C9>8 THEN PRINT "NO MORE THAN 8, PLEASE!":GOTO 80 

100 INPUT "NUMBER OF P0SITI0N5";P9 

110 INPUT "NUMBER OF ROUNDS" ;R9 

120 P=C9"P9 

130 PRINT "TOTAL POSSIBILITIES »"JP 

140 H=0:C»0 

150 DIM Q(P9>,SU0,2>,S$<10),A»<P?),G»<P9),I(P>,H»<P9) 

140 L»="BURGOYPT" 

170 PRINT 

180 PRINT 

190 PRINT "COLOR LETTER" 

200 PRINT "==—= :».»• 

210 FOR X=1 TO C9 

220 READ X« 

230 PRINT X»;TAB(13);MID<(L»,X,1) 

240 NEXT X 

250 PRINT 

240 FOR R=1 TO R9 

270 PRINT 

280 PRINT "ROUND NUMBER ";R;" 

290 PRINT 



"BAD NUMBER OF POSITIONS. ":BOTO 380 



:G0TO 380 



300 PRINT "GUESS MY COMBINATION." 

310 REM GET A COMBINATION 

320 A=INT(P»RND(1)t1) 

330 GOSUB 3000 

340 FOR X=1 TO A 

350 GOSUB 3500 

340 NEXT X 

370 FOR M=1 TO 10 

380 PRINT "MOVE It '';M;" GUESS ";: INPUT X* 

390 IF X$="BOARD" THEN 2000 

400 IF X$="OUIT" THEN 2500 

410 IF LEN(X*K>P? THEN PRINT 

420 REM UNPACK X* INTO G*(l-P9> 

430 FOR X=1 TO P? 

440 FOR T=1 TO C9 

450 IF MIB*(X*,X,1)=HID$(L»,Y,1) THEN 480 

440 NEXT Y 

470 PRINT ; HID*<X«,X,1); '" IS UNRECOGNIZED." 

480 0«(X)=HID*(X*,X,1) 

4?0 NEXT X 

500 REM NOU UE CONVERT 0U-P9) INTO AK1-P9) TACTUAL GUESS] 

510 GOSUB 4000 

520 REM ANB GET NUMBER OF BLACKS AND UHITES 

530 GOSUB 4500 

540 IF B=P9 THEN 430 

550 REM TELL HUMAN RESULTS 

540 PRINT "YOU HAVE ";B;" BLACKS AND ";U;" UHITES." 

570 REM SAVE ALL THIS STUFF FOR BOARD PRINTOUT LATER 

580 S»(M)=XI 

590 S(M,1)=B 

400 S(M,2)=U 

410 NEXT H 

420 PRINT "YOU RAN OUT OF MOVES! THAT'S ALL YOU GET!":BOTO 440 

422 GOSUB 4000 

423 PRINT "THE ACTUAL COMBINATION UAS: "; 

424 FOR X=1 TO P9 

425 PRINT A»(X>; 
424 NEXT X 

427 PRINT 

430 PRINT "YOU GUESSED IT IN ";M;° MOVES!" 

440 H=H+M 

450 GOSUB 5000 

440 REM 

470 REM NOU COMPUTER GUESSES 

480 REN 

490 FOR X*1 TO P 

700 I(X)=I 

710 NEXT X 

720 PRINT "NOU I GUESS. THINK OF A COMBINATION." 

730 INPUT "HIT RETURN UHEN READY ";X* 

740 FOR M=1 TO 10 

750 GOSUB 3000 

740 REM FIND A GUESS 

770 G=INT(P»RND(1)+1) 

780 IF I(G)=1 THEN 890 

790 FOR X=G TO P 

800 IF KX) = 1 THEN 880 

810 NEXT X 

820 FOR X=1 TO G 

830 IF I(X)=1 THEN 880 

840 NEXT X 

850 PRINT "YOU DUMMY, YOU HAVE GIVEN ME INCONSISTENT INFORMATION." 

840 PRINT "LET'S TRY AGAIN, AND THIS TIME, BE MORE CAREFUL." 

870 GOTO 440 

880 G=X 

890 REM NOU UE CONVERT GUESS 10 INTO Gl 

900 FOR X=1 TO G 

910 GOSUB 3500 

920 NEXT X 

930 GOSUB 4000 

940 PRINT "MY GUESS IS: "; 

950 FOR X=1 TO P9 

940 PRINT H»(X); 

970 NEXT X 

980 INPUT " BLACKS, UHITES ";B1,U1 

990 IF B1=P9 THEN 1120 

1000 GOSUB 3000 

1010 FOR X»1 TO P 

1020 GOSUB 3500 

1030 IF HX)=0 THEN 1070 

1035 60SUB 4500 

1040 BOSUB 4000 

1050 60SUB 4500 

1040 IF BIOB OR UK>U THEN I(X)=0 

1070 NEXT X 

1080 NEXT M 

1090 PRINT "I USED UP ALL MY MOVES!" 

1100 PRINT "I GUESS MY CPU IS JUST HAVING AN OFF DAY." 

1110 GOTO 1130 

1120 PRINT "I GOT IT IN ";M;" MOVES!" 

1130 C=C+M 

1140 GOSUB 5000 
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1150 NEXT R 


4050 NEXT S 


1160 PRINT "GAHE OVER" 


4060 RETURN 


1170 PRINT "FINAL SCORE:" 


4500 REH 


1180 GOSUB 5040 


4510 REH GET NUHBER OF BLACKS (B) AND UHITES (U) 


1190 STOP 


4520 REH HASHES G* AND A* IN THE PROCESS 


2000 REN 


4530 REH 


2010 REH BOARD PRINTOUT ROUTINE 


4540 8=0:U=0:F=0 


2020 REH 


4550 FOR S=1 TO P9 


2025 PRINT 


4560 IF G$(S)OA5(S) THEN 4620 


2030 PRINT "BOARD" 


4570 B=B+1 


2040 PRINT "MOVE GUESS BLACK UNITE" 


4580 G*(S)=CHR»(F) 


2050 FOR Z=1 TO M-1 


4590 A»(S)=CHR»(F+1) 


2040 PRINT Z;TAB<9);S»(Z>;TAB(25>;S<Z,1>;TAB(35>;5<Z,2> 


4600 F=F+2 


2070 NEXT Z 


4610 GOTO 4660 


2075 PRINT 


4620 FOR T=1 TO P9 


2080 GOTO 380 


4630 IF G*(SK>A1(T> THEN 4650 


2500 REH 


4640 IF G»(T)=A»(T) THEN 4650 


2510 REH QUIT ROUTINE 


4645 U=Ut1:A«(T!=CHR>(F):G»(S)=CHR*(Ftt):F=Ft2:G0T0 4660 


2520 REH 


4650 NEXT T 


2530 PRINT "QUITTER! MY COMBINATION UAS: »; 


4660 NEXT S 


2535 GOSUB 4000 


4670 RETURN 


2540 FOR X=1 TO P9 


5000 REH 


2550 PRINT A»(X); 


5010 REH PRINT SCORE 


2560 NEXT X 


5020 REH 


2565 PRINT 


5030 PRINT "SCORE:" 


2570 PRINT "GOOD BYE" 


5040 PRINT " COHPUTER ";C 


2580 STOP 


5050 PRINT " HUHAN ";H 


3000 REM 


5060 PRINT 


3010 REH INITIALIZE 0(1-P9> TO ZEROS 


5070 RETURN 


3020 REH 


5500 REH 


3030 FOR S=1 TO P9 


5510 REH CONVERT QU-P9) INTO B»(1-P9) 


3040 Q(S)=0 


5520 REH 


3050 NEXT S 


5530 FOR S=1 TO P9 


3060 RETURN 


5540 6$(S)=HID»(L»,Q(S),1) 


3500 REN 


5550 NEXT S 


3510 REM INCREMENT Qtl-P?) 


5560 RETURN 


3520 REH 


6000 REH 


3522 IF 0(1 )>0 THEN 3530 


6010 REH CONVERT QU-P9) TO HK1-P9) 


3524 REH IF ZERO, THIS IS OUR FIRST INCREHENT: HAKE ALL ONES 


6020 REH 


3526 FOR S=1 TO P9 


6030 FOR S=1 TO P9 


3527 Q(S)=1 


6040 H«(S)=HID»(L$,0(S),1) 


3528 NEXT S 


6050 NEXT S 


3529 RETURN 


6060 RETURN 


3530 0=1 


6500 REH 


3540 0(Q)=Q(QH1 


65t0 REH COPY H» INTO G* 


3550 IF Q<0K=CV THEN RETURN 


6520 REH 


3560 Q(Q)=1 


6530 FOR S=1 TO P9 


3570 Q=Q+1 


6540 G»(S)=H»(S) 


3580 GOTO 3540 


6550 NEXT S 


4000 REH 


6560 RETURN 


4010 REH CONVERT Q(1-P?) TO A»(1-P9> 


8000 REH PROGRAH DATA FOR COLOR NAMES 


4020 REH 


8010 DATA BLACK, UHITE.RED.GREEN, ORANGE, YELLOU, PURPLE, TAN 


4030 FOR S=1 TO P9 


9998 REM ...UE'RE SORRY BUT IT'S TIHE TO GO... 


4040 A»(S)=HID»(Lt,Q(S),1) 


9999 END 




<&&£)*-, — - 
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Math Dice 



The program presents pictorial drill 
on addition facts using printed dice 
with no reading involved. It is good for 
beginning addition, since the answer 
can be derived from counting spots on 
the dice as well as by memorizing math 
facts or awareness of number con- 
cepts. It is especially effective run on a 
CRT terminal. 

It was originally written by Jim 
Gerrish, a teacher at the Bernice A. Ray 
School in Hanover, New Hampshire. 

HATH DICE 
CREATIVE COHPUTING HQRRISTOUN, NEU JERSEY 



THIS PROGRAH GENERATES SUCCESSIVE PICTURES OF TUO DICE. 
UHEN TUO DICE AND AN EQUAL SIGN FOLLOUED BY A QUESTION 
HARK HAVE BEEN PRINTED, TYPE YOUR ANSUER AND THE RETURN KEY. 
TO CONCLUDE THE LESSON, TYPE CONTROL-C AS YOUR ANSUER. 



I « ♦ I 




I I 




I * ♦ I 




♦ 




I » I 




I » I 




I * I 




«T 7 




RIGHTI 




THE DICE ROLL 


AGAIN... 


I * I 




I I 




I * I 




+ 




I « » I 




I » I 




I « * I 




•1 4 




NO, COUNT THE 


SPOTS AND GIVE ANOTHER ANSUER 


=7 5 




NO, THE AMSUEF 


1 IS 7 


THE DICE ROLL 


AGAIN... 


I * I 




I I 




I * I 




t 




I » ♦ I 




I « « I 




I ♦ * I 




«? 8 




RIGHTI 





10 PRINT TAB(3U;"HATH DICE" 

20 PRINT TAB( 15) ("CREATIVE COHPUTING HORRISTOUN, NEU JERSEY" 

30 PRINT:PRINTiPRINT 

40 PRINT "THIS PROGRAH GENERATES SUCCESSIVE PICTURES OF TUO DICE." 

50 PRINT "UHEN TUO DICE AND AN EQUAL SIGN FOLLOUED BY A QUESTION" 

(SO PRINT "HARK HAVE BEEN PRINTED, TYPE YOUR ANSUER AND THE RETURN KEY. 

70 PRINT "TO CONCLUDE THE LESSON, TYPE CONTROL-C AS YOUR ANSUER." 

80 PRINT 

90 PRINT 

100 N-N+1 

ttO D*INTU»RND<mi) 

120 PRINT 

130 IF D=1 THEN 200 

140 IF D*2 THEN 1BO 

1S0 IF D»3 THEN ISO 

140 PRINT "I * » I" 

170 GOTO 210 

180 PRINT "I * I" 

1V0 GOTO 210 

200 PRINT "I I" 

210 IF D*2 THEN 240 

220 IF D°4 THEN 240 

230 IF D=4 THEN 270 

240 PRINT "I ♦ I" 

230 GOTO 280 

240 PRINT "I I" 

24S GOTO 280 

270 PRINT "I * * I" 

280 IF D*1 THEN 350 

290 IF D"2 THEN 330 

300 IF D*3 THEN 330 

310 PRINT "I * * I" 

320 GOTO 340 

330 PRINT "I * I" 

340 GOTO 340 

330 PRINT "I I" 

340 PRINT 

370 PRINT 

375 IF N*2 THEN 500 

380 PRINT " +" 

381 PRINT 
400 A°D 

410 GOTO 100 

500 T*D+A 

510 PRINT " =•; 

520 INPUT T1 

530 IF TI=T THEN 590 

540 PRINT "NO, COUNT THE SPOTS AND GIVE ANOTHER ANSUER." 

541 PRINT " ="; 
550 INPUT T2 

540 IF T2=T THEN 590 

570 PRINT "NO, THE ANSUER IS"jT 

580 GOTO 400 

590 PRINT "RI6HT!" 

400 PRINT 

401 PRINT "THE DICE ROLL AGAIN..." 
410 PRINT 

415 N=0 

420 GOTO 100 

999 END 
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Mugwump 




< ~ — ^g^SV ..iiBB* 






^ 



jifl» 



c - uflBB> 



Your objective in this game is to find 
the four Mugwumps hiding on various 
squares of a 10 by 10 grid. Homebase 
(lower left) is position (0,0) and a guess 
is a pair of whole numbers (0 to 9), 
separated by commas. The first 
number is the number of units to the 
right of homebase and the second 
number is the distance above 
homebase. 

You get ten guesses to locate the 
four Mugwumps; after each guess, the 
computer tells you how close you are 
to each Mugwump. Playing the game 
with the aid of graph paper and a 
compass should allow you to find all 
the Mugwumps in six or seven moves 
using triangulation similar to Loran 
radio navigation. 

If you want to make the game 
somewhat more difficult, you can print 
the distance to each Mugwump either 
rounded or truneated to the nearest 
integer. Statement 390 would print 
either INT (D + .5) or INT (D). 

This program was modified slightly 
by Bob Albrecht of People's Computer 
Company. It was originally written by 
students of Bud Valenti of Project 
SOLO in Pittsburgh, Penhsylvania. 
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Use this scale with a compass to help find the Mugwumps. 
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HUGUUHP 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 



THE OBJECT OF THIS GAHE IS TO FIND FOUR HUGUUHPS 
HIDDEH ON A 10 BY 10 GRID. HOHEBASE IS POSITION 0,0 
ANY GUESS YOU HAKE MUST BE TUO NUMBERS UITH EACH 
NUMBER BETUEEN AND V, INCLUSIVE. FIRST NUMBER 
IS DISTANCE TO RIGHT OF HOHEBASE AND SECOND NUMBER 
IS DISTANCE ABOVE HOHEBASE. 

YOU GET 10 TRIES. AFTER EACH TRY, I UILL TELL 
YOU HOU FAR YOU ARE FROM EACH HUGUUHP. 



TURN NO. 1 UHAT IS YOUR GUESS? 5,5 
YOU ARE 4 UNITS FROM MUGUUMP 1 
YOU ARE 3.1 UNITS FROM MUGUUMP 2 
YOU ARE 4.2 UNITS FROM HUGUUHP 3 
YOU ARE 5 UNITS FROM HUGUUHP 4 



TURN NO. 2 UHAT IS YOUR GUESS? 0,0 
YOU ARE 10.2 UNITS FROH HUGUUHP 1 
YOU ARE 8.? UNITS FROH HU6UUHP 2 
YOU ARE 11.3 UNITS FROH HUGUUHP 3 
YOU ARE 5 UNITS FROH HUGUUHP 4 



TURN NO. 3 UHAT IS YOUR GUESS? 9,8 
YOU ARE 3 UNITS FROH HUGUUHP 1 
YOU ARE 4.1 UNITS FROH MUGUUHP 2 
YOU ARE 1 UNITS FROH HUGUUHP 3 
YOU ARE 8.9 UNITS FROH HUGUUHP 4 



TURN NO. 4 UHAT IS YOUR GUESS? 9,9 
YOU ARE 4 UNITS FROH MUGUUHP 1 
YOU ARE 5 UNITS FROM HUGUUHP 2 
YOU ARE 1.4 UNITS FROM MUGUUMP 3 
YOU ARE 9.8 UNITS FROH HUGUUHP 4 



TURN NO. 5 UHAT IS YOUR GUESS? 8,8 
YOU ARE 3.1 UNITS FROH HUGUUHP 1 
YOU ARE 4 UNITS FROH HUGUUHP 2 
YOU HAVE FOUND MUGUUHP 3 
YOU ARE 8.5 UNITS FROM MUGUUHP 4 



TURN NO. 4 UHAT IS YOUR GUESS? 4,8 
YOU ARE 5.8 UNITS FROH HUGUUHP 1 
YOU ARE 5.4 UNITS FROH HUGUUHP 2 
YOU ARE 8 UNITS FROH MUGUUHP 4 



TURN NO. 7 UHAT IS YOUR GUESS? 3,7 

YOU ARE A. 3 UNITS FROM HUGUUHP 1 

YOU ARE 5.8 UNITS FROM HUGUUHP 2 

YOU ARE 7.2 UNITS FROH HUGUUHP 4 



TURN NO. 8 UHAT IS YOUR GUESS? 4,8 
YOU ARE 4.2 UNITS FROH MUGUUHP 1 
YOU ARE 4.4 UNITS FROH HUGUUHP 2 
YOU ARE 8 UNITS FROH HUGUUHP 4 



TURN NO. 9 UHAT IS YOUR GUESS? 4,0 

YOU ARE 5.8 UNITS FROM MUGUUHP 1 

YOU ARE 4.4 UNITS FROH HUGUUHP 2 
YOU ARE 1 UNITS FROM HUGUUHP 4 



TURN NO. 10 UHAT IS YOUR GUESS? 7,0 
YOU ARE 5.3 UNITS FROH MUGUUHP 1 
YOU ARE 4.1 UNITS FROM HUGUUHP 2 
YOU ARE 2 UNITS FROM MUGUUMP 4 



HORRISTOUN, NEU JERSEY" 



SORRY, THAT'S 10 TRIES. 
HUGUUHP 1 IS AT ( 9 , 5 ) 
HUGUUHP 2 IS AT ( 8 , 4 ) 
MUGUUMP 4 IS AT ( 5 , ) 



THAT UAS FUN! LET'S PLAY AGAIN 

FOUR MORE HUGUUHPS ARE NOU IN HIDING. 



HERE IS UHERE THEY'RE HIDING 



"TURN NO.";T;"UHAT IS YOUR GUESS" 



1 PRINT TAB(33);"HU6UUHP" 

2 PRINT TAB(15);"CREATIVE COMPUTING 

3 PRINT:PRINT:PRINT 

4 REM COURTESY PEOPLE'S COMPUTER COMPANY 
10 DIH P(4,2) 

20 PRINT "THE OBJECT OF THIS GAHE IS TO FIND FOUR HUGUUHPS" 

30 PRINT "HIDDEN ON A 10 BY 10 GRID. HOHEBASE IS POSITION 0,0" 

40 PRINT "ANY GUESS YOU HAKE MUST BE TUO NUHBERS UITH EACH" 

50 PRINT "NUHBER BETUEEN AND 9, INCLUSIVE. FIRST NUMBER" 

40 PRINT "IS DISTANCE TO RIGHT OF HOHEBASE AND SECOND NUMBER" 

70 PRINT "IS DISTANCE ABOVE HOHEBASE." 

80 PRINT 

90 PRINT "YOU GET 10 TRIES. AFTER EACH TRY, I UILL TELL" 

100 PRINT "YOU HOU FAR YOU ARE FROH EACH HUGUUHP." 

110 PRINT 

240 GOSUB 1000 

250 T=0 

240 T=T+1 

270 PRINT 

275 PRINT 

290 PRINT 

300 INPUT H,N 

310 FOR 1=1 TO 4 

320 IF P(I,1)=-1 THEN 400 

330 IF P(I,1)OH THEN 380 

340 IF P(I,2)ON THEN 380 

350 P(I,1)=-1 

360 PRINT "YOU HAVE FOUND MUOUUHP";I 

370 GOTO 400 

380 D=S0R((P(I,1)-H)-2+(P(I,2)-N)"2) 

390 PRINT "YOU ARE"; (INT(D«10> >/10;"UNITS FROH MUGUUNP";I 

400 NEXT I 

410 FOR J=1 TO 4 

420 IF P(J,1X>-1 THEN 470 

430 NEXT J 

440 PRINT 

430 PRINT "YOU GOT THEH ALL IN";T;"TURNS! " 

440 GOTO 580 

470 IF T<10 THEN 240 

480 PRINT 

490 PRINT "SORRY, THAT'S 10 TRIES. HERE IS UHERE THEY'RE HIDING" 

540 FOR 1=1 TO 4 

550 IF P(I,1)=-1 THEN 570 

560 PRINT "HUGUUHP";I;"IS AT (";P(I,1 );",";P(I,2>;">" 

570 NEXT I 

580 PRINT 

400 PRINT "THAT UAS FUN! LET'S PLAY AGAIN " 

410 PRINT "FOUR HORE HUGUUHPS ARE NOU IN HIDING." 

430 GOTO 240 

1000 FOR J=1 TO 2 

1010 FOR 1=1 TO 4 

1020 P(I,J) = INT(10*RND(D) 

1030 NEXT I 

104O NEXT J 

1050 RETURN 

1099 END 
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Name 



NAME is a silly little ice-breaker to 
get a relationship going between a 
computer and a shy human. The 
sorting algorithm used is highly inef- 
ficient — as any reader of Creative 
Computing will recognize, this is the 
worst possible sort for speed. But the 
program is good fun and that's what 
counts here. 

NAME was originally written by 
Geoffrey Chase of the Abbey, 
Portsmouth, Rhode Island. 



HORRISTOUN, NEU JERSEY" 



1 PRINT TAB(34);"NAHE" 

2 PRINT TAB(I5>;"CREATIVE COMPUTING 

3 PRINT: PRINT: PRINT 
S DIN B*(40> 

10 PRINT "HELLO.": PRINT "HT NAME IS CREATIVE COMPUTER." 

20 PRINT "UHAT'S YOUR NAME (FIRST AND LAST";: INPUT A»: L=LEN(A»> 

30 PRINT: PRINT "THANK YOU, •; 

40 FOR 1=1 TO L: B»(I)=MIM(A«,I,1 ): NEXT I 

50 FOR I=L TO 1 STEP -Is PRINT 8*(I>;: NEXT I 

40 PRINT *.": PRINT "OOPS! I GUESS I BOT IT BACKUARDS. A SMART" 

70 PRINT "COMPUTER LIKE ME SHOULDN'T MAKE A MISTAKE LIKE THAT!": PRINT 

80 PRINT "BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER." 

90 PRINT "LET'S PUT THEM IN ORDER LIKE THIS: "; 

100 FOR J=2 TO L: I=J-1: T»=B$(J) 

110 IF T$>B»(I) THEN 130 

120 B»(I+H=B$(I>: 1=1-1: IF I>0 THEN 110 

130 B*(I+1 )=T»: NEXT J 

140 FOR 1=1 TO L: PRINT B«(I>;: NEXT I: PRINT: PRINT 

150 PRINT "DON'T YOU LIKE THAT BETTER";: INPUT D» 

160 IF D»="YES" THEN 180 

170 PRINT: PRINT "I'M SORRY YOU DON'T LIKE IT THAT UAY.": GOTO 200 

180 PRINT: PRINT "I KNEU YOU'D AGREE!!" 

200 PRINT: PRINT "I REALLY ENJOYED MEETING YOU ";A»;"." 

210 PRINT "HAVE A NICE DAY!" 

111 END 
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NAME 
CREATIVE COMPUTING NORRISTOUN, NEU JERSEY 



HELLO. 

MY NAME IS CREATIVE COMPUTER. 

UHAT'S YOUR NAME (FIRST AND LAST? SGT PEPPER 

THANK YOU, REPPEP TGS. 

OOPS! I GUESS I GOT IT BACKUARDS. A SMART 

COMPUTER LIKE ME SHOULDN'T MAKE A MISTAKE LIKE THAT! 

BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER. 
LET'S PUT THEM IN ORDER LIKE THIS: EEGPPPRST 

DON'T YOU LIKE THAT BETTER? NO 

I'M SORRY YOU DON'T LIKE IT THAT UAY. 

I REALLY ENJOYED MEETING YOU SOT PEPPER. 
HAVE A NICE DAY! 



HELLO. 

MY NAME IS CREATIVE COMPUTER. 

UHAT'S YOUR NAME (FIRST AND LAST? SUSAN JONES 

THANK YOU, SENOJ NASUS. 

OOPS! I GUESS I GOT IT BACKUARDS. A SMART 

COMPUTER LIKE ME SHOULDN'T MAKE A MISTAKE LIKE THAT! 

BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER. 
LET'S PUT THEM IN ORDER LIKE THIS: AEJNNOSSSU 

DON'T YOU LIKE THAT BETTER? YES 

I KNEU YOU'D AGREE!! 

I REALLY ENJOYED MEETING YOU SUSAN JONES. 
HAVE A NICE DAY! 



Nicomachus 



One of the most ancient forms of 
arithmetical puzzle is sometimes 
referred to as a "boomerang." At some 
time, everyone has been asked to 
"think of a number," and, after going 
through some process of private 
calculation, to state the result, after 
which the questioner promptly tells 
you the number you originally thought 
of. There are hundreds of varieties of 
the puzzle. 

The oldest recorded example 
appears to be that given in Arithmetica 
of Nicomachus, who died about the 
year 120. He tells you to think of any 
whole number between 1 and 100 and 
divide it successively by 3, 5, and 7, 
telling him the remainder in each case. 
On receiving this information, he 
promptly discloses the number you 
thought of. 

Can you discover a simple method of 
mentally performing this feat? If not, 
you can see how the ancient 
mathematician did it by looking at 
Lines 80-100 of the program. 

Nicomachus was written by David 
Ahl. 



2 PRINT TAB(33);"NIC0MA" 

4 PRINT TAB(15);"CREATIVE C0HPUTING H0RRIST0UN, NEU JERSEY" 

i PRINT: PRINT: PRINT 

10 PRINT "B00HERANG PUZZLE FROH ARITHMETICA OF NICOHACHUS — 

20 PRINT 

30 PRINT "PLEASE THINK OF A NUMBER BETUEEN 1 AND 100." 

40 PRINT "YOUR NUHBER DIVIDED BY 3 HAS A REMAINDER OF"; 

45 INPUT A 

50 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF"; 

55 INPUT B 

60 PRINT "YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF"; 

45 INPUT C 

70 PRINT 

80 PRINT "LET ME THINK A MOMENT..." 

90 FOR 1=1 TO 1500: NEXT I 

100 D=70*A+21»B+15*C 

110 IF D<=105 THEN 140 

120 D=D-105 

130 E0T0 110 

140 PRINT "YOUR NUMBER UAS";D;\ RIGHT"; 

HO INPUT A» 

165 PRINT 

170 IF A«="YES" THEN 220 

180 IF A$="N0" THEN 240 

190 PRINT "EH? I BON'T UNDERSTAND '";A*;" 

200 GOTO 150 

220 PRINT "H0U ABOUT THAT!!" 

230 GOTO 250 

240 PRINT "I FEEL YOUR ARITHMETIC IS IN ERROR." 

250 PRINT 

240 PRINT "LET'S TRY ANOTHER." 

270 GOTO 20 

9?? END 



A.D. 90!" 



TRY 'YES' OR 'NO' 



NIC0MA 
CREATIVE COMPUTING M0RRIST0WN, NEU JERSEY 



BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS — A.D. 90! 

PLEASE THINK OF A NUHBER BETUEEN 1 AND 100. 
YOUR NUHBER DIVIDED BY 3 HAS A REMAINDER OF? 1 
YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF? 5 

LET ME THINK A MOMENT... 

YOUR NUMBER UAS 40 , RIGHT? YES 

H0U ABOUT THAT!! 

LET'S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETUEEN 1 AND 100. 

YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF? 1 

YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF? 

YOUR NUMBER DIVIDED BY 7 HAS A REHAINDER OF? 2 

LET ME THINK A MOMENT... 

YOUR NUMBER UAS 100 , RIGHT? YES 

HOU ABOUT THAT!! 

LET'S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETUEEN 1 AND 100. 
YOUR NUHBER DIVIDED BY 3 HAS A REHAINDER OF? 
YOUR NUHBER DIVIDED BY 5 HAS A REMAINDER OF? 4 
YOUR NUMBER DIVIDED BY 7 HAS A REHAINDER OF? 4 

LET MF THINK A HOHENT... 

YOUR NUMBER UAS 39 , RIGHT? NO 

I FEEL YOUR ARITHHETIC IS IN ERROR. 

LET'S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETUEEN 1 AND 100. 

YOUR NUHBER DIVIDED BY 3 HAS A REMAINDER OF? 1 

YOUR NUMBER DIVIDED BY 5 HAS A REHAINDER OF? 1 

YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF? 1 

LET ME THINK A MOMENT;.. 

YOUR NUMBER UAS 1 , RIGHT? YES 

HOU ABOUT THAT!! 
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Mm 



NIM is one of the oldest two-person 
games known to man; it is believed to 
have originated in ancient China. The 
name, which was coined by the first 
mathematician to analyze it, comes 
from an archaic English verb which 
means to steal or to take away. Objects 
are arranged in rows between the two 
opponents as in the following example: 

XXXXXXX Row 1 — 7 Objects 
XXXXX Row 2 — 5 Objects 
XXX Row 3 — 3 Objects 

X Row 4 — 1 Object 

Opponents take turns removing 
objects until there are none left. The 
one who picks up the last object wins. 
The moves are made according to the 
following two rules: 

1. On any given turn only objects from 
one row may be removed. There is no 
restriction on which row or on how 
many objects you remove. Of 
course, you cannot remove more 
than are in the row. 

2. You cannot skip a move or remove 
zero objects. 

The winning strategy can be 
mathematically defined, however, 
rather than presenting it here, we'd 
rather let you find it on your own. HINT: 
Play a few games with the computer 
and mark down on a piece of paper the 
number of objects in each stack (in 
binary!) after each move. Do you see a 
pattern emerging? 

This game of NIM is from Dartmouth 
College and is a generalized game 
which allows you to specify any 
starting size for the four piles and also a 
win option. To play traditional NIM, 
you would simply specify 7,5,3, and 1, 
and win option 1. 



nih 



CREATIVE COMPUTING HORRISTOUN, HEU JERSEY 



THIS IS THE GAME OF NIM. 

DO VOU UflNT INSTRUCTIONS? YES 

THE GAME IS PLAYED UITH A NUMBER OF PILES OF OBJECTS. 

ANY NUMBER OF OBJECTS ARE REMOVED FROM ONE PILE BY Y00 AND 

THE MACHINE ALTERNATELY. ON YOUR TURN, YOU MAY TAKE 

ALL THE 0BJECT5 THAT REMAIN IN ANY PILE BUT YOU MUST 

TAKE AT LEAST ONE OBJECT, AND YOU MAY TAKE OBJECTS FROM 

ONLY ONE PILE ON A SINGLE TURN. YOU MUST SPECIFY WHETHER 

WINNING IS DEFINED AS TAKING OR NOT TAKING THE LAST OBJECT, 

THE NUMBER OF PILES IN THE GAME, AND HOU MANY OBJECTS ARE 

ORIGINALLY IN EACH PILE. EACH PILE MAY CONTAIN A 

DIFFERENT NUMBER OF OBJECTS. 

THE MACHINE UILL SHOU ITS MOVE BY LISTING EACH PILE AND THE 

NUMBER OF OBJECTS REMAINING IN THE PILES AFTER EACH OF ITS 

MOVES. 

ENTER UIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST? 2 
ENTER HUNBER OF PILES? 4 
ENTER PILE SIZES 

1 ? 10 

2 ? 8 

3 ? 7 

4 ? 3 

DO YOU UANT TO MOVE FIRST? NO 
PILE SIZE 

1 10 

2 8 

3 1 

4 3 

YOUR MOVE - PILE.NUNBER TO BE REMOVED? 1,? 
PILE SIZE 

1 I 

2 3 

3 I 

4 3 

YOUR MOVE - PILE,NUMBER TO BE REMOVED? 2,2 
PILE SIZE 
t I 

2 I 

3 1 

4 

YOUR MOVE - PILE.NUNBER TO BE REMOVED? 3,1 

MACHINE UINS 

Do you uant to play another jane? NO 
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HORRISTOUN, NEU JERSEY" 



100 PRINT TAB(33);"NIM" 

110 PRINT TABH5);"CREATIVE COHPUTINB 

120 PRINTsPRINTsPRINT 

210 DIN A<100>,BUOO,IO>,D<2) 

220 PRINT "THIS IS THE BANE OF NIH." 

230 PRINT "DO YOU UANT INSTRUCTIONS"; 

240 INPUT Z« 

250 IF Z«="NO" THEN 440 

240 IF Z*="no" GOTO 440 

270 IF Z«="YE5" THEN 310 

280 IF Z*="yes" GOTO 310 

290 PRINT "PLEASE. YES OR NO"; 

300 60T0 240 

310 PRINT "THE GANE IS PLAYED UITH A NUMBER OF PILES OF OBJECTS." 

320 PRINT "ANY NUHBER OF OBJECTS ARE REHOVED FROH ONE PILE BY YOU AND" 

330 PRINT "THE HACHINE ALTERNATELY. ON YOUR TURN, YOU HAY TAKE" 

340 PRINT "ALL THE OBJECTS THAT REMAIN IN ANY PILE BUT YOU MUST" 

350 PRINT "TAKE AT LEAST ONE OBJECT, AND YOU HAY TAKE OBJECTS FROM" 

360 PRINT "ONLY ONE PILE ON A SINGLE TURN. YOU MUST SPECIFY UHETHER" 

370 PRINT "UINNING IS DEFINED AS TAKING OR NOT TAKING THE LAST OBJECT," 

3B0 PRINT "THE NUMBER OF PILES IN THE GAHE, AND HOU MANY OBJECTS ARE" 

390 PRINT "ORIGINALLY IN EACH PILE. EACH PILE MAY CONTAIN A" 

400 PRINT "DIFFERENT NUMBER OF OBJECTS." 

410 PRINT "THE MACHINE UILL SHOO ITS HOVE BY LISTING EACH PILE AND THE" 

420 PRINT "NUMBER OF OBJECTS REMAINING IN THE PILES AFTER EACH OF ITS" 

430 PRINT "MOVES." 

440 PRINT 

450 PRINT "ENTER UIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST"; 

440 INPUT U 

470 IF U=l THEN 490 

480 IF U<>2 THEN 450 

490 PRINT "ENTER NUMBER OF PILES"; 

500 INPUT N 

510 IF N>100 THEN 490 

520 IF N<l THEN 490 

530 IF NOINT(N) THEN 490 

540 PRINT "ENTER PILE SIZES" 

550 FOR 1=1 TO N 

540 PRINT I; 

570 INPUT Ad) 

580 IF A(I)>2000 THEN 560 

590 IF A(I)<1 THEN 540 

400 IF A(I)OINT(A(I>) THEN 560 

610 NEXT I 

420 PRINT "DO YOU UANT TO MOVE FIRST"; 

630 INPUT 09$ 

640 IF 09«="YES" GOTO 1450 

650 IF 09«="yes" GOTO 1450 

640 IF 09*="N0" GOTO 700 

470 IF 09« = "!>o" GOTO 700 

680 PRINT "PLEASE. YES OR NO"; 

690 60T0 430 

700 IF U=l THEN 940 

710 LET C=0 

720 FOR 1=1 TO N 

730 IF A(I)=0 THEN 770 

740 LET C=C+1 

750 IF C=3 THEN 840 

740 LET D(C)=I 

770 NEXT I 

780 IF C=2 THEN 920 

790 IF A<D(1)»I THEN 820 

800 PRINT "MACHINE LOSES" 

810 GOTO 1640 

820 PRINT "MACHINE UINS" 

830 GOTO 1640 

840 LET C=0 

850 FOR 1=1 TO N 

860 IF AU»1 THEN 940 

870 IF AIIKO THEN 890 

880 LET C=C+1 

890 NEXT I 

900 IF C/20INKC/2) THEN 800 

910 GOTO 940 

920 IF A(D(1))=1 THEN 820 

930 IF A(D(2))=1 THEN 820 

940 FOR 1=1 TO N 

950 LET E=A(I) 

940 FOR J=0 TO 10 

970 LET F=E/2 

980 LET BU,J)=2»(F-INT<F>> 

990 LET E=INT(F) 

1000 NEXT J 

1010 NEXT I 

1020 FOR J=10 TO STEP -1 

1030 LET C=0 

1040 LET H=0 

1050 FOR 1=1 TO N 

1040 IF B(I,J)=0 THEN 1110 

1070 LET C=C»I 

1080 IF A(IX=H THEN 1110 
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1090 LET H=A(I) 

1100 LET G=I 

1110 NEXT I 

1120 IF C/2<>INT(C/2) THEN 1190 

1130 NEXT J 

1140 LET E»INT(N*RND<1>+1) 

1150 IF A(E)=0 THEN 1140 

1140 LET F=INT(A(E)«RND(1)+1) 

1170 LET A(E)=A(E)-F 

1180 GOTO 1380 

1190 LET A(G)=0 

1200 FOR J=0 TO 10 

1210 LET B(G,J)=0 

1220 LET C=0 

1230 FOR 1=1 TO N 

1240 IF B<I,J)=0 THEN 1240 

1250 LET C=C+1 

1260 NEXT I 

1270 LET A(G)=A(G)»2*(C/2-INT(C/2))*2-J 

1280 NEXT J 

1290 IF 0=1 THEN 1380 

1300 LET C=0 

1310 FOR 1=1 TO N 

1320 IF AU»1 THEN 1380 

1330 IF A(I)=0 THEN 1350 

1340 LET C=>C*1 

1350 NEXT I 

1340 IF C/2<>INT(C/2) THEN 1380 

1370 LET A(G)=1-A(6) 

1380 PRINT "PILE SIZE" 

1390 FOR 1=1 TO N 

1400 PRINT I;AU> 

1410 NEXT I 

1420 IF U=2 THEN 1450 

1430 GOSUB 1570 

1440 IF Z=1 THEN 820 

1450 PRINT "YOUR MOVE 

1460 INPUT X,Y 

1470 IF X>N THEN 1450 

1480 IF X<1 THEN 1450 

1490 IF XOINT(X) THEN 1450 

1500 IF Y>A(X) THEN 1450 

1510 IF Y<1 THEN 1450 

1520 IF YOHJT(Y) THEN 1450 

1530 LET A(X)=A(X)-Y 

1540 GOSUB 1570 

1550 IF Z=1 THEN 800 

1560 GOTO 700 

1570 LET Z=0 

1580 FOR 1=1 TO N 

1590 IF A<I)=0 THEN 1610 

1600 RETURN 

1610 NEXT I 

1620 LET Z=l 

1430 RETURN 

1440 PRINT "Do you Mant to play another gane" 

1450 INPUT 09* 

1440 IF 09«""YES" THEN 1720 

1470 IF 09»="yes" THEN 1720 

1480 IF Q91="N0" THEN 1730 

1490 IF 09«="no" THEN 1730 

1700 PRINT "PLEASE. YES OR NO"; 

1710 GOTO 1450 

1720 GOTO 440 

1730 END 



PILE, NUHBER TO BE REMOVED"; 




a O C 

°oO° oo 




II 



Re/e>LUTiow iS oveR apd 

THAT fTS ojoU M 
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Number 



In contrast to other number guessing 
games where you keep guessing until 
you get the random number selected 
by the computer (GUESS, TRAP, 
STARS, etc.), in this game you get only 
one guess per play and you gain or lose 
points depending upon how close your 
guess is to the random number 
selected by the computer. You oc- 
casionally get a jackpot which will 
double your point count. You win when 
you get 500 points. 

Tom Adametx wrote this program 
while a student at Curtis Junior High 
School in Sudbury, Massachusetts. 



YOU HAVE 100 POINTS. BY GUES9IN0 NUMBERS FROM 1 TO 3, Y00 
CAN SAIN OR LOSE POINTS DEPENDING UPON HOU CLOSE YOU OET TO 
A RANDOH NUHBER SELECTED BY THE COMPUTER. 

YOU OCCASIONALLY MILL SET A JACKPOT UHICH UILL DOUBLE(I) 
YOUR POINT COUNT. YOU UIN UHEN YOU GET 500 POINTS. 

GUESS A NUHBER FROH I TO 57 2 

YOU HAVE 95 POINTS. 

0UESS A NUHBER FROM 1 TO 57 2 

YOU HAVE 90 POINTS. 

OUESS A NUHBER FROH 1 TO ST 2 

YOU HAVE 95 POINTS. 

OUESS A NUHBER FROM 1 TO 57 2 

YOU HAVE 96 POINTS. 

OUESS A NUMBER FROH 1 TO 57 2 

YOU HIT THE JACKPOTIII 

YOU HAVE 192 POINTS. 

GUESS A NUHBER FROH 1 TO 57 3 

YOU HIT THE JACKPOTIII 

YOU HAVE 384 POINTS. 

OUESS A NUHBER FROH 1 TO 57 1 

YOU HAVE 389 POINTS. 

GUESS A NUHBER FROH 1 TO 57 2 

YOU HAVE 394 POINTS. 

GUESS A NUHBER FROH 1 TO 5? 5 

YOU HIT THE JACKPOTIII 

IHIYOU UINIIII UITH 788 POINTS. 



NUHBER 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 



3 
4 

5 PRINT 

6 PRINT 

7 PRINT 

8 PRINT 

9 PRINT 



HORRISTOUN, NEU JERSEY" 



1 PRINT TAB(33);"NUHBER" 

PRINT TAB(15);"CREATIVE COMPUTING 
PRINT:PRINT:PRINT 

PRINT "YOU HAVE 100 POINTS. BY GUESSING NUHBERS FROH 1 TO 5, YOU" 
CAN SAIN OR LOSE POINTS DEPENDING UPON HOU CLOSE YOU OET TO" 
A RANDOH NUHBER SELECTED BY THE COMPUTER.": PRINT 
YOU OCCASIONALLY UILL OET A JACKPOT UHICH UILL DOUBLE! D" 
YOUR POINT COUNT. YOU UIN UHEN YOU OET 500 POINTS." 
P*100 

10 J)EF FNR(X) = INT<5»RND(U + 1) 
12 INPUT "GUESS A NUMBER FROM 1 TO 5";G 
15 R»FNR(1) 
14 S=FNR<1) 

17 T=FNR<1) 

18 U°FNR<1> 

19 V=FNR(1) 

20 IF 0=R THEN 30 

21 IF 0=S THEN 40 

22 IF G«T THEN 50 

23 IF 6=U THEN 60 

24 IF 6=V THEN 70 

25 IF 0>5 THEN 12 
30 P=P-5 

35 GOTO 80 

40 P=P+5 

45 GOTO 80 

50 P=PtP 

53 PRINT "YOU HIT THE JACKPOTIII" 

55 GOTO 80 

60 P-P+1 

65 GOTO 80 

70 P«P-(P*.5> 

80 IF P>500 THEN 90 

82 PRINT "YOU HAVE";P;"POINTS." 

85 60T0 12 

90 PRINT "IIIIYOU UINHII UITH ";P;"P0INTS." 

99 END 
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One Check 



In this game or puzzle, 48 checkers 
are placed on the two outside spaces of 
a standard 64-square checkerboard as 
shown: 



The object is to remove as many 
checkers as possible by diagonal 
jumps (as in standard checkers). 

It is easy to remove 30 to 39 checkers, 
a challenge to remove 40 to 44, and a 
substantial feat to remove 45 to 47. 

The program was created and 
written by David Ahl. 



ONE CHECK 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 



SOLITAIRE CHECKER PUZZLE BY DAVID AHL 

48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A 
STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT IS TO 
REHOVE AS HANY CHECKERS AS POSSIBLE BY DIAGONAL JUHPS 
(AS IN STANDARD CHECKERS). USE THE NUMBERED BOARD TO 
INDICATE THE SQUARE YOU UISH TO JUHP FROM AND TO. ON 
THE BOARD PRINTED OUT ON EACH TURN '1' INDICATES A 
CHECKER AND '0' AN EMPTY SQUARE. UHEN YOU HAVE NO 
POSSIBLE JUHPS REHAINING, INPUT A '0' IN RESPONSE TO 
QUESTION 'JUMP FROH ?' 

HERE IS THE NUMERICAL BOARD: 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


IS 


1? 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


36 


37 


38 


3? 


40 


41 


42 


43 


44 


45 


46 


47 


48 



49 50 51 52 53 54 55 54 
57 58 59 60 61 62 63 64 



AND HERE IS THE OPENING POSITION OF THE CHECKERS. 



1111 
1111 



1 1 



1111 



JUMP FROM? 1 
TO? 19 



11111 



1111 



1 1 



1111 



JUHP FROH? 2 
TO? 20 








1 1 




1 1 
1 1 



JUMP FROM? 3 
TO? 21 












1 1 



1 1 
1 
1 






JUMP FROH? 8 
TO? 22 








1 

1 1 









1 1 1 
1 1 1 



JUMP FROH? 64 
TO? 46 





1 1 



1 1 1 











1111 
1111 



1 1 

1 1 

1 1 





1111 
1111 



JUHP FROM? 16 
TO? 30 



1 1 
1 1 



1 1 1 

1 1 

I 1 

1 












1 1 1 

1111 



11111 



1 
1 
1 
1 
1 

1 1 1 
1 1 1 



1 1 
1 



1 



JUMP FROM? 5 
TO? 23 








1 1 




1 1 



1 1 



11110 
111110 



JUHP FROM? 57 
TO? 51 

ILLEGAL MOVE. TRY AGAIN. 
JUMP FROH? 57 
TO? 43 

10 110 
10 



1 1 

1 

1 

1 1 



1 1 1 









1 1 
1 



1111 
11111 

JUMP FROM? 25 
TO? 11 



1 1 





1 
1 1 



1 1 

1 1 

1 

1 



1111 
1111 



JUMP FROH? 4 
TO? 18 



1111 
10 




1 
1 1 



1 1 
1 1 



1111 



1 1 1 



JUMP FROH? 49 
TO? 35 



JUMP FROM? 41 
TO? 27 



1 
1 1 



1111 



1 1 

1 

1 1 



1111 



1 1 



1 1 



1 1 




1 
1 1 

1 

1 1 




1 



1 1 





1 1 



1 1 





1110 



1111110 



1 1 





1110 
11110 



JUMP FROM? 5B 
TO? 44 



1111 
110 




1 
1 1 






1 1 
1 1 



1 1 



1 1 
1 1 

1 

1 1 

1 



JUMP FROM? 26 
TO? 11 

ILLEGAL HOVE. TRY AGAIN. 
JUHP FROH? 26 
TO? 12 



1 1 






1 1 



1 1 




1111 



1 1 



1 1 
1 



1 1 
1111 



JUHP FROM? 2 

TO? 4 

ILLEGAL MOVE. TRY AGAIN. 
JUMP FROM? 22 
TO? 4 



1 1 







1 
1 
I 

1 1 

1 1 1 



1 1 



1 

1 1 

1 

1 1 
1 
1 1 



JUHP FROH? 59 
TO? 45 





1 
1 1 



1 1 




1 1 



1 

1 1 



1 
1 
1 1 
1111 



JUHP FROH? 18 
TO? 36 







1 1 



1 1 






1111 



1 1 



1 

1 1 
1 



1 1 

1 1 



1 


1 



JUHP FROH? 21 
TO? 3 



1 1 




1 1 
1 1 






1 1 

1 

1 1 



110 
11110 
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Later in the game ... 



JUMP FROHT 48 








TO? 3C 


1 















1 








1 


1 


























1 


1 




















1 








1 





1 











1 


1 





1 











1 


1 


1 














1 


1 





1 








1 


1 


1 


1 





JUMP FROM 


I? 37 








TO? 23 

















1 








1 


1 


























1 


1 











1 








1 














1 














1 





1 











t 


1 


1 














1 


1 





1 








1 


1 


1 


1 





JUHP FROM? 32 








TO? 14 

















1 








1 


1 

















1 








1 


1 




















1 





























1 





1 











1 


1 


1 














1 


1 





1 








1 


1 


1 


1 





JUMP FROM 


? 7 










TO? 21 

















1 








1 





























1 


1 





1 














1 





























1 





1 











1 


1 


1 














1 


1 





1 








1 


1 


1 


1 





JUMP FROM 


? 45 








TO? 31 

















1 








1 





























1 


1 





1 














1 











1 























1 














1 


1 














1 


1 





1 








1 


1 


1 


1 





JUMP FROM? 40 








TO? 22 

















1 








1 





























1 


1 





1 


1 











1 


















































1 


1 














1 


1 





1 








1 


1 


1 


1 





JUHP FROM 


? 43 








TO? 45 

















1 








1 





























1 


1 





1 


1 











1 















































1 


1 


1 














1 








1 








1 


1 


1 









JUHP 1 


FROH? 


53 






TO? 3? 













1 








1 























1 


1 





1 


1 








1 





























1 











1 





1 

















1 








1 


1 


1 





JUMP FROM? 56 






TO? 38 


1 













t 








1 























t 


1 





1 


1 








1 


























1 


1 











1 
































1 


1 


1 





JUMP FROH? 45 






TO? 31 















1 








1 























1 


1 





1 


1 








1 











1 

















1 












































1 


1 


1 





JUHP FROH 


? 31 






TO? 13 















1 








1 














1 








1 


1 





1 











1 





























1 












































1 


1 


1 





JUHP FROH' 


! 6 








TO? 20 















1 
































1 


1 


1 


1 











1 





























1 












































1 


1 


1 





JUMP FROM? 


1 35 








TO? 20 












ILLEGAL 


HOVE. 


TRY 


AGAIN.. 


JUHP FROH? 


35 








TO? 21 













ILLEGAL HOVE. TRY AGAIN... 
JUMP FROM? 35 
TO? 13 

ILLEGAL HOVE. TRY AGAIN... 
JUMP FROH? 35 
TO? 



ILLEGAL HOME 


, 


TRY 


AGAIN... 


JUHP FROH? 27 








TO? 13 












1 























1 











1 1 





1 









































1 












































1 


1 


1 









2 PRINT TABOO) ;"ONE CHECK" 

4 PRINT TABU5);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

6 PRINT: PRINT: PRINT 

8 DIH A(64) 

10 PRINT "SOLITAIRE CHECKER PUZZLE BY DAVID AHL" 

15 PRINT 

20 PRINT "48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF A" 

25 PRINT "STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT IS TO" 

30 PRINT "REMOVE AS HANY CHECKERS AS POSSIBLE BY BIAGONAL JUMPS" 

35 PRINT "(AS IN STANDARD CHECKERS). USE THE NUMBERED BOARD TO" 

40 PRINT "INDICATE THE SQUARE YOU UISH TO JUHP FROH AND TO. ON" 

45 PRINT "THE BOARD PRINTED OUT ON EACH TURN '1' INDICATES A" 

"CHECKER AND '0' AN EHPTY SQUARE. UHEN YOU HAVE NO" 

"POSSIBLE JUMPS REMAINING, INPUT A 

"QUESTION 'JUMP FROH ?'" 



-0' IN RESPONSE TO" 



"HERE IS THE NUHERICAL BOARD:" 



50 PRINT 
55 PRINT 
60 PRINT 
62 PRINT 

65 PRINT 

66 PRINT 

70 FOR J=1 TO 57 STEP 8 

74 PRINT J;TAB(4);Jt1;TAB(8);Jt2;TAB(12);J+3;TAB(16);J+4:TAB(20):J+5: 

75 PRINT TAB(24);j+6;TAB(2B);J+7 

76 NEXT J 

77 PRINT 

78 PRINT "AND HERE IS THE OPENING POSITION OF THE CHECKERS." 

71 PRINT 

80 FOR J=1 TO 64 

82 A(J)=1 

84 NEXT J 

86 FOR J=19 TO 43 STEP 8 

8B FOR I=J TO Jt3 

90 A(I)=0 

92 NEXT I 

94 NEXT J 

96 H=0 

98 GOTO 340 

100 INPUT "JUHP FROH";F 

105 IF F=0 THEN 500 

110 INPUT "TO";T 

112 PRINT 

118 REM *** CHECK LEGALITY OF MOVE 

120 F1=INT((F-1)/8> 

130 F2=F-8*F1 

140 T1=INT((T-1)/8> 

150 T2=T-8*T1 

160 IF F1>7 THEN 230 

170 IF T1>7 THEN 230 

180 IF F2>8 THEN 230 

190 IF T2>8 THEN 230 

200 IF ABS(F1-T1><>2 THEN 230 

210 IF ABS(F2-T2)<>2 THEN 230 

212 IF A((T+F)/2)=0 THEN 230 

215 IF A(F)=0 THEN 230 

220 IF A(T)=1 THEN 230 

225 GOTO 250 

230 PRINT "ILLEGAL MOVE. TRY AGAIN..." 

240 GOTO 100 

245 REM »** UPDATE BOARB 

250 A(T)=1 

260 A(F)=0 

270 A((T+F)/2)=0 

290 H=H+1 

310 REH *** PRINT BOARD 

340 FOR J=1 TO 57 STEP 8 

350 FOR I=J TO J+7 

360 PRINT Ad); 

370 NEXT I 

380 PRINT 

390 NEXT J 

400 PRINT 

410 GOTO 100 

490 REM **+ END GAME SUMMARY 

500 S=0 

510 FOR 1=1 TO 64 

520 S=S+AU) 

530 NEXT I 

540 PRINT "YOU MADE";M;"JUMPS AND HAD";S;"PIECES" 

550 PRINT "REMAINING ON THE BOARD." 

560 PRINT 

562 INPUT "TRY AGAIN";A« 

570 IF A«="YES" THEN 70 

575 IF A»="NO" THEN 600 

580 PRINT "PLEASE ANSUER 'YES' OR 'NO'." 

590 GOTO 562 

600 PRINT 

610 PRINT "O.K. HOPE YOU HAB FUN!!" 

999 END 



JUHP FROH? 
■ YOU HADE 39 JUMPS AND HAD 9 PIECES 
REMAINING ON THE BOARD. 

TRY AOAIN? NO 
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Orbit 



ORBIT challenges you to visualize 
spatial positions in polar coordinates. 
The object is to detonate a Photon 
explosive within a certain distance of a 
germ laden Romulan spaceship. This 
ship is orbiting a planet at a constant 
altitude and orbital rate 
(degrees/hour). The location of the 
ship is hidden by a device that renders 
the ship invisible, but after each bomb 
you are told how close to the enemy 
ship your bomb exploded. The 
challenge is to hit an invisible moving 
target with a limited number of shots. 

The planet can be replaced by a point 
at its center (called the origin); then the 
ship's position can be given as a 
distance from the origin and an angle 
between its position and the eastern 
edge of the planet. 



direction 
of orbit 



Vf iP 

^s^ Wangle 



The distance of the bomb from the 
ship is computed using the law of 
cosines (see line 430 of the program 
listing). The law of cosines states 

D=^R**2+D1**2+R*D1*COS (A-A1) 

where D is the distance between the 
ship and the bomb, R is the altitude of 
the ship, D 1 is the altitude of the bomb, 
and A-A1 is the angle between the ship 
and the bomb. 



bomb 




ship 



Practice Off-Line Problem: 

Aircraft appear on radar as blips of 
the form "=". What is the distance 
between the TWA and United aircraft 
shown on the radar screen on the right. 



ORBIT was originally called SPACE 
WAR and was written by Jeff Lederer of 
Project SOLO Pittsburgh, Penn- 
sylvania. 



ORBII 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 

SOHEUHERE ABOVE YOUR PLANET IS A ROMULAN SHIP. 

THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS 
DISTANCE FROH THE CENTER OF YOUR PLANET IS FROM 
10,000 TO 30,000 HUES AND AT ITS PRESENT VELOCITY CAN 
CIRCLE YOUR PLANET ONCE EVERY 12 TO 34 HOURS. 

UNFORTUNATELY THEY ARE USING A CL0AKIN6 DEVICE SO 
YOU ARE UNABLE TO SEE THEN, BUT UITH A SPECIAL 
INSTRUMENT YOU CAN TELL H0U NEAR THEIR SHIP YOUR 
PHOTON B0HB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THEY 
HAVE BUILT UP SUFFICIENT P0UER IN ORDER TO ESCAPE 
YOUR PLANET'S GRAVITY. 

YOUR PLANET HAS ENOUGH P0UER TO FIRE ONE BOMB AN HOUR. 

AT THE BEGINNING OF EACH HOUR YOU UILL BE ASKED TO OIVE AN 
ANGLE (BETUEEN AND 360) AND A DISTANCE IN UNITS OF 
100 MILES (BETUEEN 100 AND 300), AFTER UHICH YOUR BOMB'S 
DISTANCE FROM THE ENEHY SHIP UILL BE 0IVEN. 

AN EXPLOSION UITHIN 5,000 MILES OF THE ROMULAN SHIP 
UILL DESTROY IT. 

BEL0U IS A DIA0RAH TO HELP YOU VISUALIZE YOUR PLIGHT. 
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124 



ON THE ABOVE DIAGRAH, THE RQHULAN SHIP IS CIRCLING 
COUNTERCLOCKUISE AROUND YOUR PLANET. DON'T FOROET 
UITHOUT SUFFICIENT POUER THE ROHULAN SHIP'S ALTITUDE 
AND ORBITAL RATE UILL REHAIN CONSTANT. 

GOOD LUCK. THE FEDERATION IS COUNTINO ON YOU. 



HOUR 1 , AT UHAT ANGLE DO YOU UISH TO SEND 

YOUR PHOTON BOHB? VO 

HDU FAR OUT DO YOU UISH TO DETONATE ITT 250 

YOUR PHOTON BOHB EXPLODED 270.671 *10"2 HILES FROH THE 
ROHULAN SHIP. 



HOUR 2 , AT UHAT ANGLE DO YOU UISH TO SEND 

YOUR PHOTON BOHB? 260 

HOU FAR OUT DO YOU UISH TO DETONATE ITT 200 



YOUR PHOTON BOHB EXPLODED 382.522 *10*2 HILES FROH THE 
ROHULAN SHIP. 



HOUR 3 , AT UHAT ANGLE DO YOU UISH TO SEND 

YOUR PHOTON BOHB? 35 

HOU FAR OUT DO YOU UISH TO DETONATE ITT 200 



YOUR PHOTON BOHB EXPLODED 136.808 *10 A 2 HILES FROH THE 
ROHULAN SHIP. 



HOUR 4 , AT UHAT ANGLE 00 YOU UISH TO SEND 

YOUR PHOTON BOHB? 20 

HOU FAR OUT DO YOU UISH TO DETONATE IT? 300 



YOUR PHOTON BOHB EXPLODED 342.71? *10"2 HILES FROH THE 
ROHULAN SHIP. 



HOUR 5 , AT UHAT ANGLE BO YOU UISH TO SEND 

YOUR PHOTON BOHBT 40 

HOU FAR OUT DO YOU UISH TO DETONATE ITT 100 



YOUR PHOTON BOHB EXPLODED 228.24 «10"2 HILES FROH THE 
ROHULAN SHIP. 



HOUR 6 , AT UHAT ANGLE DO YOU UISH TO SEND 

YOUR PHOTON BOHBT 55 

HOU FAR OUT DO YOU UISH TO DETONATE ITT 20V 



YOUR PHOTON BOHB EXPLODED 328.821 *10"2 HILES FROH THE 
ROHULAN SHIP. 



HOUR 7 , AT UHAT ANGLE DO YOU UISH TO SEND 

YOUR PHOTON BOHBT 20 

HOU FAR OUT DO YOU UISH TO DETONATE ITT 100 



YOUR PHOTON BOHB EXPLODED 2??. 178 *10"2 HILES FROH THE 

ROHULAN SHIP. 

YOU HAVE ALLOUED THE ROHULANS TO ESCAPE. 

ANOTHER ROHULAN SHIP HAS GONE INTO ORBIT. 

DO YOU UISH TO TRY TO DESTROY IT? I HATE COHPUTERS THAT NEVER LOSE 

GOOD BYE. 



'10,000 TO 30,000 HILES AND AT ITS PRESENT VELOCITY CAN" 
'CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS." 



2 PRINT TAB(33);"0RBIT" 

4 PRINT TAD(15);"CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY" 

6 PRINT:PRINT:PRINT 

10 PRINT "50HEUHERE ABOVE YOUR PLANET IS A ROHULAN SHIP." 

15 PRINT 

20 PRINT "THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS" 

25 PRINT "DISTANCE FROH THE CENTER OF YOUR PLANET IS FROH" 
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0000" 
0000" 
0000" 
OOOOO" 



30 PRINT 

31 PRINT 
35 PRINT 

40 PRINT "UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE SO" 
45 PRINT "YOU ARE UNABLE TO SEE THEH, BUT UITH A SPECIAL" 

50 PRINT "INSTRUHENT YOU CAN TELL HOU NEAR THEIR SHIP YOUR" 

55 PRINT "PHOTON BOHB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THEY" 

60 PRINT "HAVE BUILT UP SUFFICIENT POUER IN ORDER TO ESCAPE" 

65 PRINT "YOUR PLANET'S GRAVITY." 

70 PRINT 

75 PRINT "YOUR PLANET HAS ENOUGH POUER TO FIRE ONE BOHB AN HOUR." 

80 PRINT 

85 PRINT "AT THE BEGINNING OF EACH HOUR YOU UILL DE ASKED TO GIVE AN" 

90 PRINT "ANGLE (BETUEEN AND 360) AND A DISTANCE IN UNITS OF" 

95 PRINT "100 HILES (BETUEEN 100 AND 300), AFTER UHICH YOUR BOHB'S" 

100 PRINT "BISTANCE FROH THE ENEHY SHIP UILL BE GIVEN." 

105 PRINT 

110 PRINT "AN EXPLOSION UITHIN 5,000 HILES OF THE ROHULAN SHIP" 

111 PRINT "UILL DESTROY IT." 

114 PRINT 

115 PRINT "BELOU IS A DIAGRAH TO HELP YOU VISUALIZE YOUR PLIGHT." 

116 PRINT 

117 PRINT 

148 PRINT 

149 PRINT 

170 PRINT 

171 PRINT 

172 PRINT 

173 PRINT 

174 PRINT 

175 PRINT 

176 PRINT 

177 PRINT 

178 PRINT 

179 PRINT 

180 PRINT 

181 PRINT 

182 PRINT 

183 PRINT 

184 PRINT 

185 PRINT 

186 PRINT 

187 PRINT 

188 PRINT 
18? PRINT 
1?0 PRINT 
192 PRINT 

195 PRINT "X - YOUR PLANET" 

196 PRINT "0 - THE ORBIT OF THE ROHULAN SHIP" 

197 PRINT 

198 PRINT "ON THE ABOVE DIAGRAH, THE ROHULAN SHIP IS CIRCLING" 

199 PRINT "COUNIERCLOCKUISE AROUND YOUR PLANET. DON'T FORGET" 

200 PRINT "UITHOUT SUFFICIENT POUER THE ROHULAN SHIP'S ALTITUDE" 
210 PRINT "AND ORBITAL RATE UILL REHAIN CONSTANT." 
220 PRINT 

230 PRINT "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU." 
270 A»INT(360»RND(D) 
280 D-INT(200»RND<1)+200> 
290 R»INT(20«RND(1)*10) 
300 H=0 

310 IF H=7 THEN 490 
320 H=H+1 

325 PRINT 

326 PRINT 

330 PRINT "HOUR";Hj", AT UHAT ANGLE DO YOU UISH TO SEND" 
335 PRINT "YOUR PHOTON BOHB"; 
340 INPUT At 

350 PRINT "HOU FAR OUT DO YOU UISH TO DETONATE IT"; 
360 INPUT D1 

365 PRINT 

366 PRINT 
370 A*A*R 

3B0 IF A<360 THEN 400 
390 A=A-360 
400 T=ABS(A-A1) 
410 IF T<180 THEN 430 
420 T=360-T 

430 C=S0R(D*D»D1*D1-2»D*D1*C0S(T*3. 14159/180)) 
440 PRINT "YOUR PHOTON BOHB EXPL0DED";C;"»10-2 HILES FROH THE" 
445 PRINT "ROHULAN SHIP." 
450 IF C<*50 THEN 470 
460 GOTO 310 

470 PRINT "YOU HAVE SUCCESFULLY COHPLETED YOUR HISSION." 
480 GOTO 500 

490 PRINT "YOU HAVE ALLOUED THE ROHULANS TO ESCAPE." 
500 PRINT "ANOTHER ROHULAN SHIP HAS GONE INTO ORBIT." 
510 PRINT "DO YOU UISH TO TRY TO DESTROY IT"; 
520 INPUT C» 
530 IF C$="YES" THEN 270 
540 PRINT "GOOD BYE." 
?99 END 
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Pizza 



In this game, you take orders for 
pizzas from people living in Hyattsville. 
Armed with a map of the city, you must 
then tell your delivery boy the address 
where the pizza is to be delivered. If the 
pizza is delivered to the correct ad- 
dress, the customer phones you and 
thanks you; if not, you must give the 
driver the correct address until the 
pizza gets delivered. 

Some interesting modifications 
suggest themselves for this program 
such as pizzas getting cold after two 
incorrect delivery attempts or taking 
three or more orders at a time and 
figuring the shortest delivery route. 
Send us your modifications! 

This program seems to have sur- 
faced originally at the University of 
Georgia in Athens, Georgia. The 
author is unknown. 



PIZZA 
CREATIVE COMPUTING NORRISTOUN, NEW JERSEY 

PIZZA DELIVERY GAHE 

UHAT IS YOUR FIRST NAHE? DARTH 

HI, DARTH. IN THIS GAME YOU ARE TO TAKE ORDERS 
FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY 
UHERE TO DELIVER THE ORDERED PIZZAS. 

MAP OF THE CITY OF HYATTSVILLE 

1 2 3 4 

4 H N P 4 
3 I J K L 3 
2 E F G H 2 



1 A 



C D t 



-1 2 3- 4- 



THE ABOVE IS A MAP OF THE HOMES UHERE 
YOU ARE TO SEND PIZZAS. 

YOUR JOB IS TO GIVE A TRUCK DRIVER 
THE LOCATION OR COORDINATES OF THE 
HOME ORDERING THE PIZZA. 

DO YOU NEED MORE DIRECTIONS? YES 

SOMEBODY UUL ASK FOR A PIZZA TO BE 
DELIVERED. THEN A DELIVERY BOY UILL 
ASK YOU FOR THE LOCATION. 

EXAMPLE: 
THIS IS J. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. UHERE DOES J LIVE? 
YDUR ANSUER UOULD BE 2,3 

UNDERSTAND? YES 

GOOD. YOU ARE NOU READY TO START TAKING ORDERS. 

GOOD LUCK!! 

HELLO DARTH'S PIZZA. THIS IS D. PLEASE SEND A PIZZA. 

DRIVER TO DARTH. UHERE DOES D LIVE? 4,1 
HELLO DARTH. THIS IS D, THANKS FOR THE PIZZA. 

HELLO DARTH'S PIZZA. THIS IS 0. PLEASE SEND A PIZZA. 

DRIVER TO DARTH. UHERE DOES LIVE? 3,4 
HELLO DARTH. THIS IS 0, THANKS FOR THE PIZZA. 

HELLO DARTH'S PIZZA. THIS IS N. PLEASE SEND A PIZZA. 

DRIVER TO DARTH. UHERE DOES N LIVE? 4,2 
THIS IS H. I DID NOT ORDER A PIZZA. 
I LIVE AT 4 , 2 

DRIVER TO DARTH. UHERE DOES N LIVE? 2,4 
HELLO DARTH. THIS IS N, THANKS FOR THE PIZZA. 

HELLO DARTH'S PIZZA. THIS IS J. PLEASE SEND A PIZZA. 

DRIVER TO DARTH. UHERE DOES J LIVE? 2,3 
HELLO DARTH. THIS IS J, THANKS FOR THE PIZZA. 

HELLO DARTH'S PIZZA. THIS IS F. PLEASE SEND A PIZZA. 

DRIVER TO DARTH. UHERE DOES F LIVE? 2,2 
HELLO DARTH. THIS IS F, THANKS FOR THE PIZZA. 

DO YOU UANT TO DELIVER MORE PIZZAS? NO 

O.K. DARTH, SEE YOU LATER! 
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c = s ^Su r -~ 



5 PRINT TAB(33)J"PIZZA" 

10 PRINT TABM5)J"CREATIVE CONPUTINB HORRISTOUN, NEU JERSEY" 

15 PRINT: PRINT: PRINT 

20 DIN SSM6),M*(4> 

30 PRINT "PIZZA DELIVERY GAME": PRINT 

50 INPUT "UHAT IS YOUR FIRST NAHE"JN»: PRINT 

80 PRINT "HI, ";N»;\ IN THIS DANE YOU ARE TO TAKE ORDERS" 

90 PRINT "FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY" 

100 PRINT "UHERE TO DELIVER THE ORDERED PIZZAS.": PRINT: PRINT 

HO FOR 1 = 1 TO 16 



"F","G","H","r , ,"J","K","L" r "H","N","0" 



230 PRINT "HAP OF THE CITY OF HYATTSVILLE": PRINT 

250 PRINT " 1 2 3 — -—4 " 

260 K=4 

270 FOR 1=1 TO 4 

280 PRINT "-": PRINT "-": PRINT"-": PRINT "-" 

320 PRINT H*(K>; 

330 S1=16-4*I+1 

340 print " ";s»(sn;" ";s»<si+u;" 

350 PRINT S$(St+3);" ";H$(K) 

380 K=K-1 

390 NEXT I 

400 PRINT "-": PRINT "-": PRINT "-": PRINT "-" 

440 PRINT " 1 2- 3 4 ": PRINT 

460 PRINT "THE ABOVE IS A HAP OF THE HOHES UHERE" 
470 PRINT "YOU ARE TO SEND PIZZAS.": PRINT 
490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER" 
500 PRINT "THE LOCATION OR COORDINATES OF THE" 



150 READ SKI) 






160 NEXT I 






170 FOR 1=1 TO 4 






180 READ H$(I) 






190 NEXT I 






200 DATA "A'V'BV'C" 


»D" 


,"E 


210 DATA "P","1","2" 


"3" 


,"< 



";s»(Si+2);" 



510 PRINT "HONE ORDERING THE PIZZA.": PRINT 

520 INPUT "DO YOU NEED HORE DIRECTIONS"; A* 

530 IF A»="YES" THEN 590 

540 IF A»="NQ" THEN 750 

550 PRINT "'YES' OR 'NO' PLEASE, NOU THEN,": GOTO 520 

590 PRINT: PRINT "SOMEBODY UILL ASK FOR A PIZZA TO BE" 

600 PRINT "DELIVERED. THEN A DELIVERY BOY UILL" 

610 PRINT "ASK YOU FOR THE LOCATION.": PRINT " EXAMPLE:" 

620 PRINT "THIS IS J. PLEASE SEND A PIZZA." 

640 PRINT "DRIVER TO "jNtJ". UHERE DOES J LIVE?" 

650 PRINT "YOUR ANSUER UOULD BE 2,3": PRINT 

660 INPUT "UNDERSTAND"JA« 

670 IF A*="YES" THEN 690 

680 PRINT "THIS JOB IS DEFINITELY TOO DIFFICULT FOR YOU. THANKS ANYUAY" 

685 GOTO 999 

690 PRINT "GOOD. YOU ARE NOU READY TO START TAKING ORDERS.": PRINT 

700 PRINT "GOOD LUCK!!": PRINT 

750 FOR 1=1 TO 5 

760 S = INT(RNDM)*16 + 1): PRINT 

770 PRINT "HELLO ";N*;"'S PIZZA. 

775 PRINT " PLEASE SEND A PIZZA. 

780 PRINT " DRIVER TO "JN$J". UHERE DOES "JS»<S)J" 

790 INPUT A(1),A(2) 

870 T=AM)t<A(2)-1>*4 

880 IF T=S THEN 920 

890 PRINT "THIS IS ";S»<T);". 

900 PRINT "I LIVE AT "JAM);" 

910 GOTO 780 

920 PRINT "HELLO "N*J". THIS IS "JSKS);", THANKS FOR THE PIZZA. 

930 NEXT I 

940 PRINT: INPUT "DO YOU UANT TO DELIVER HORE PIZZAS"JA1 

960 IF A»="YES" THEN 750 

970 PRINT: PRINT "O.K. "JN*;", SEE YOU LATER!" 

999 END 



THIS IS "JS»(S);"."J 

LIVE"j 



I DID NOT ORDER A PIZZA." 
"JA<2> 
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Poetry 



This program produces random 
verse which might loosely be con- 
sidered in the Japanese Haiku style. It 
uses 20 phrases in four groups of five 
phrases each and generally cycles 
through the groups in order. It inserts 
commas (random — 19% of the time), 
indentation (random — 22% of the 
time), and starts new paragraphs (18% 
probability, but at least once every 20 
phrases). 

The phrases in POETRY are 
somewhat suggestive of Edgar Allen 
Poe. Try it with phrases from computer 
technology, from love and romance, 
from four-year-old children, or from 
some other subject. Send us the out- 
put. 



Here are some phrases from nature 
to try: 

Carpet of ferns Mighty Oaks 
Morning dew Grace and beauty 
Tang of dawn Silently singing 
Swaying pines Nature speaking 
Entrances me Untouched, unspoiled 
Soothing me Shades of green 

Rustling leaves Tranquility 
Radiates calm . . .so peaceful 

The original author of this program is 
unknown. It was modified and rework- 
ed by Jim Bailey, Peggy Ewing, and 
Dave Ahl at DEC. 



POETRY 
CREATIVE COHPUTIND MORRISTOUN, NEU JERSEY 



10 PRINT TAB<30);"P0ETRY" 

20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

90 ON I GOTO 100,101,102,103,104 

100 PRINT "MIDNIGHT DREARY"; :G0TQ 210 

101 PRINT "FIERY EYES";:G0T0 210 

102 PRINT "BIRD OR FIEND";:00TO 210 

103 PRINT "THING OF EVIL";:B0TO 210 

104 PRINT "PROPHET";:G0TO 210 

110 ON I GOTO 111,112,113,114,115 

111 PRINT "BEGUILING ME";:U=2iG0T0 210 

112 PRINT "THRILLED ME";:GOT0 210 

113 PRINT "STILL SITTING ";:G0TO 212 

114 PRINT "NEVER FLITTING"; :U=2:G0T0 210 

115 PRINT "BURNED"; :B0T0 210 

120 ON I GOTO 121,122,123,124,125 

121 PRINT "AND HY S0UL";:G0T0 210 

122 PRINT "DARKNESS THERE";:G0T0 210 

123 PRINT "SHALL BE LIFTED" ; :G0T0 210 

124 PRINT "QUOTH THE RAVEN";:00T0 210 

125 IF U=0 THEN 210 

126 PRINT "SIGN OF PARTING";:G0T0 210 

130 ON I GOTO 131,132,133,134,135 

131 PRINT "NOTHING H0RE";:GOT0 210 

132 PRINT "YET AGAIN";:G0T0 210 

133 PRINT "SL0ULY CREEPING"; :GOT0 210 

134 PRINT "...EVERHORE";:GOT0 210 

135 PRINT "NEVERMORE"; 

210 IF U=0 OR RND<1».19 THEN 212 

211 PRINT ",";:U=2 

212 IF RND(1>>.65 THEN 214 

213 PRINT " ";:U=U»1:G0T0 215 

214 PRINT : U=0 

215 I=INT(INT(10*RND(1))/2)+1 
220 J=J+1 : K=Kt1 

230 IF U>0 OR INT(J/2)OJ/2 THEN 240 

235 PRINT " "; 

240 ON J GOTO 90,110,120,130,250 

250 J=0 : PRINT : IF K>20 THEN 270 

240 GOTO 215 

270 PRINT : U=0 : K=0 : GOTO 110 

999 END 



MIDNIGHT DREARY FIERY EYES, STILL SITTING.... 
DARKNESS THERE 

NOTHING MORE 
PROPHET, NEVER FLITTING, SHALL BE LIFTED YET AGAIN 

PROPHET 

NEVER FLITTING QUOTH THE RAVEN 

SL0ULY CREEPING 
FIERY EYES 

BEGUILING NE, SI6N OF PARTING 

NEVERMORE 
MIDNIGHT DREARY 

THRILLED ME 0U0TH THE RAVEN ...EVERMORE 



THRILLED ME BIRD OR FIEND 

BURNED 
DARKNESS THERE ...EVERMORE 

PROPHET BEGUILING ME 
DARKNESS THERE YET AGAIN 
MIDNIGHT DREARY 

STILL SITTING.... QUOTH THE RAVEN, NOTHING MORE 
BIRD OR FIEND 

BURNED SIGN OF PARTING NOTHING MORE 
MIDNIGHT DREARY 

STILL SITTING 

QUOTH THE RAVEN NEVERMORE 



STILL SITTING.... 

MIDNIGHT DREARY STILL SITTING.... 

AND MY SOUL 

YET AGAIN 

PROPHET THRILLED ME, SIGN OF PARTING, 

...EVERMORE 
BIRD OR FIEND, STILL SITTING.... 

YET AGAIN 
THING OF EVIL BURNED 
DARKNESS THERE NEVERMORE, 
THING OF EVIL 

BEGUILING ME SIGN OF PARTING ...EVERMORE 
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Poker 



You and the computer are opponents 
in this game of draw poker. At the start 
of the game, each player is given $200. 
The game ends when either player runs 
out of money, although if you go broke 
the computer will offer to buy your 
wristwatch or diamond tie tack. 

The computer opens the betting 
before the draw; you open the betting 
after the draw. If you don't have a hand 
that's worth anything and you want to 
fold, bet 0. Prior to the draw, to check 
the draw, you may bet .5. Of course, if 
the computer has made a bet, you must 
match it in order to draw or, if you have 
a good hand, you may raise the bet at 
any time. 

The author is A. Christopher Hall of 
Trinity College, Hartford, Connecticut. 

POKER 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 

UELCOHE TO THE CASINO. UE EACH HAVE $200 

I UILL OPEN THE BETTINO BEFORE THE DRAU; YOU OPEN AFTER 

UHEN YOU FOLD, BET 0; TO CHECK, BET .5 

ENOUGH TALK -- LET'S GET D0UN TO BUSINESS 



THE ANTE IS 15. I UILL DEAL 



YOUR HAND: 
1 -- JACK OF SPADES 
3 -- 4 OF SPADES 
5 — 0UEEN OF DIAH0NDS 



2 — 
4 — 



QUEEN OF SPADES 
3 OF SPADES 



QUEEN OF CLUBS 
7 OF CLUBS 



THE ANTE IS «5. I UILL DEAL 

YOUR HAND: 
1 — ACE OF CLUBS 2 
3 — KING OF CLUBS 4 
5 -- 2 OF SPADES 

I CHECK 

UHAT IS YOUR BET? 5 

I'LL SEE YOU 



NOU UE DRAU -- HOU MANY CARDS DO YOU UANT? 1 

UHAT ARE THEIR NUMBERS 

? 5 

YOUR NEU HAND: 

I — ACE OF CLUBS 

3 — KING OF CLUBS 

5 — 5 OF CLUBS 



2 — 0UEEN OF CLUBS 
4 — 7 OF CLUBS 



I AH TAKING 1 CARD 

UHAT IS YOUR BET? 100 

I'LL SEE YOU, AND RAISE YOU 101 

UHAT IS YOUR BET? 101 

YOU CAN'T BET UITH UHAT YOU HAVEN'T GOT 
UOULD YOU LIKE TO SELL YOUR MATCH? YES 
I'LL DIME YOU »75 FOR IT 
UHAT IS YOUR BET? 101 



NOU UE COMPARE HANDS 






HY HAND: 






6 — A OF CLUBS 






7 — 8 OF DIAMONDS 


8 — 


8 OF CLUBS 


1 — ? OF SPADES 


10 -- 


9 OF CLUBS 



I CHECK 

UHAT IS YOUR BET? 5 

I'LL SEE YOU 

NOU UE DRAU - HOU MANY CARDS DO YOU UANT? 1 

UHAT ARE THEIR NUHDERS 

? 5 

YOUR NEU HAND: 
1 — JACK OF SPADES 2 — OUEEN OF SPADES 
3 — 4 OF SPADES 4 — 3 OF SPADES 
5 — 3 OF HEARTS 



I AN TAKING 3 CARDS 

UHAT IS YOUR BET? 5 

I'LL SEE YOU, AND RAISE YOU 8 

UHAT IS YOUR BET? 8 

NOU UE COMPARE HANDS 
HY HAND: 

6 -- 3 OF CLUBS 

7 — 5 OF HEARTS 
? — QUEEN OF HEARTS 



8 — QUEEN OF CLUBS 
10 - ACE OF SPADES 



YOU HAVE A PAIR OF 3 S 
AND I HAVE A PAIR OF QUEENS 
THE HAND IS DRAUN 
ALL ♦ 46 REMAINS IN THE POT 

THE ANTE IS »5. I UILL DEAL 

YOUR HAND: 
1 — 8 OF CLUBS 2 — 
3 — 6 OF HEARTS 4 — 
5 — 3 OF DIAMONDS 



7 OF SPADES 
2 OF CLUBS 



YOU HAVE A FLUSH IN CLUBS 

AND I HAVE TUO PAIR, V S 

YOU UIN 

NOU I HAVE « 17 AND YOU HAVE * 458 

DO YOU WISH TO CONTINUE? YES 

THE ANTE IS »5. I UILL DEAL 



2 — 4 OF CLUBS 
4 — QUEEN OF CLUBS 



YDUR HAND: 
1 — JACK OF SPADES 
3 — ACE OF CLUBS 
5 — 5 OF HEARTS 

I CHECK 

UHAT IS YOUR BET? 5 

I'LL SEE YOU 



NOU UE DRAU — HOU MANY CARDS DO YOU UANT? 2 
UHAT ARE THEIR NUMBERS 



? 5 

YOUR NEU HAND: 
1 — JACK OF SPADES 2 — 
3 — ACE OF CLUBS 4 — 

5 — 1 OF DIAMONDS 

I AN TAKING 1 CARD 
UHAT IS YOUR BET? 5 
I'LL SEE YOU 

NOU UE COMPARE HANDS 
MY HAND: 

6 — 3 OF HEARTS 

7 — 6 OF HEARTS 8 — 
» — ? OF CLUBS 10 — 



5 OF CLUBS 
OUEEN OF CLUBS 



7 OF HEARTS 
ACE OF HEARTS 



I'LL OPEN UITH 28 
UHAT IS YOUR BET? 

I UIN 

HOU I HAVE * 228 AND YOU HAVE » 

DO YOU UISH TO CONTINUE? YES 



172 



YOU HAVE SCHMALTZ, ACE HIGH 
AND I HAVE SCHMALTZ, ACE HIGH 
THE HAND IS DRAUN 
ALL » 30 REMAINS IN THE POT 

I'M BUSTED. CONGRATULATIONS! 
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MORRISTQUN, NEU JERSEY" 



2 PRINT TAB (33); "POKER" 

4 PRINT TAB(15!;"CREATIVE COMPUTING 

6 PRINT: PRINT: PRINT 

10 DIM A(50),B(15) 

20 DEF FNA(XI=INT(10*RND<1)) 

30 DEF FNB(X)=X-100*INr(X/10O) 

40 PRINT "UELCOME TO THE CASINO. UE EACH HAVE *200" 

I MILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER" 
UHEH YOU FOLD, BET 0; TO CHECK, BET .5" 
ENOUGH TALK — LET'S BET DOUN TO BUSINESS" 



50 PRINT 

60 PRINT 

70 PRINT 

80 PRINT 

90 LET 0=1 

100 LET C=200 

110 LET S = 200 

120 LET P=0 

130 REM 

140 PRINT 

150 IF CC=5 THEN 3470 

HO PRINT "THE ANTE IS »5. 

170 PRINT 

180 IF S>5 THEN 200 

190 GOSUB 3830 

200 LET P=P*10 

210 LET S=S~5 

220 LET C=C-5 

230 FOR 2=1 TO 10 

240 GOSUB 1710 

250 NEXT Z 

240 PRINT "YOUR HAND:" 

270 N = 1 

280 GOSUB 1850 

290 N=6 

300 1=2 

310 GOSUB 2170 

320 PRINT 

330 IF K>6 THEN 470 

340 IF FNA(0K=? THEN 370 

350 LET X=11100 

360 GOTO 420 

370 IF FNA(0)<=7 THEN 400 

380 LET X=l 1 1 1 

390 GOTO 420 

400 IF FNA(0)>=1 THEN 450 

410 X=11111 

420 1=7 

430 Z=23 

440 GOTO 580 

450 Z=1 

460 GOTO 510 

470 IF U> = 13 THEN 540 

480 IF FNA<0)>=2 THEN 500 

490 GOTO 420 

500 Z=0 

510 K=0 

520 PRINT "I CHECK" 

530 GOTO 620 

540 IF IK=16 THEN 570 

550 Z=2 

560 IF FNA(0C> = 1 THEN 580 

570 Z=35 

580 V=Z+FNA(0) 

590 GOSUB 3480 

400 PRINT "I'LL OPEN UITH "V 

410 K = V 

420 GOSUB 3050 

630 GOSUB 650 

440 GOTO 820 



I MILL BEAL" 



450 IF IO 
460 PRINT 



470 
480 
490 
7 CO 



PRINT 
C = C + P 
PRINT 
PRINT 



THEN 760 



'I UIN" 



*"S 



NUU I HAVE J"C"AND YOU HAVE 
DO YOU UI5H TO CONTINUE"; 

710 INPUT H$ 

720 IF H»="YES" THEN 120 

730 IF Ht="NO" THEN 4100 

740 PRINT "ANSUER YES OR NO, PLEASE." 

750 GOTO 700 

740 IF KM THEN 810 

770 PRINT 

7B0 PRINT "YOU UIN" 

790 S=StP 

800 GOTO 690 

810 RETURN 

820 PRINT 

330 PRINT "NOU UE DRAU 

840 INPUT T 

850 IF T = THEN 980 

860 Z=10 

870 IF K4 THEN 900 

880 PRINT "YOU CAN'T DRAU HURE THAN THREE CARDS 

890 GOTO 640 



900 PRINT "UHAT ARE THEIR NUMBERS" 

910 FOR Q=1 TO T 

920 INPUT U 

930 GOSUB 1730 

940 NEXT Q 

950 PRINT "YOUR NEU HAND:" 

960 N=1 

970 GOSUB 1850 

9B0 Z=10+T 

990 FOR U=6 TO 10 

1000 IF JNr(X/10"(U-4))O10*INr(X/10' 

1010 GOSUB 1730 

1020 NEXT U 

1030 PRINT 

1040 PRINT "I AM TAKING"Z-1 0-T"CARD" J 

1050 IF Z = 1HT THEN 1090 

1060 PRINT "S" 

1070 PRINT 

1080 GOTO 1100 

1090 PRINT 

1100 N=6 

1110 V=I 

1120 1=1 

1130 GOSUB 2170 

1140 B=U 

1150 N = D 

1160 IF V07 THEN 1190 

1170 Z=28 

1180 GOTO 1330 

1190 IF K>6 THEN 1220 

1200 Z=1 

1210 GOTO 1330 

1220 IF U>=13 THEN 1270 

1230 Z=2 

1240 IF FNA(0K>6 THEN 1260 

1250 Z=19 

1260 GOTO 1330 

1270 IF U>=16 THEN 1320 

1280 Z=19 

1290 IF FNAI0JO8 THEN 1310 

1300 Z=1l 

1310 GOTO 1330 

1320 Z=2 

1330 K=0 

1340 GOSUB 3050 

1350 IF TO. 5 THEN 1450 

1360 IF V=7 THEN 1400 

1370 IF 106 THEN 1400 

1380 PRINT "I'LL CHECK" 

1390 GOTO 1460 

1400 V=Z+FNA<0> 

1410 GOSUB 3480 

1420 PRINT "I'LL BET"V 

1430 K = V 

1440 GOSUB 3060 

1450 GOSUB 650 

1460 PRINT 

1470 PRINT "NOU UE COMPARE HANDS" 

1480 J$=H» 

1490 K*=I» 

1500 PRINT "MY HAND:" 

1510 N=6 

1520 GOSUB 1850 

1530 N=1 

1540 GOSUB 2170 

1550 PRINT 

1560 PRINT "YOU HAVE "; 

1570 K=D 

1580 GOSUB 3690 

1590 H$=J« 

1600 I*=K$ 

1610 K=M 



(U-511 THEN 1020 



1620 PRINT "AND I HAVE 



HOU MANY CARDS DO YOU UANT" 



1630 
1640 
1650 
1660 
1662 
1664 
1670 
1680 
1490 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1765 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1940 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 



GOSUB 3690 

IF B>U THEN 470 

IF U>B THEN 780 

IF H$="A FLUS" THEN 1700 

IF FNB(MKFNBID) THEN 780 

IF FNB(H)>FNB(D) THEN 670 

PRINT "THE HAND IS DRAUN" 

PRINT "ALL »"P"REMAINS IN THE POT" 

GOTO 140 

IF FNB(H)>FNB(D) THEN 470 

IF FNB(D)>FNB(H) THEN 780 

GOTO 1670 

Z=Z+1 

A(Z>=100*INT(4*RND(1))+INT(100*RND(1)) 

IF INT(A(Z)/1001>3 THEN 1740 

IF A(Z)-100*INT(A(Z)7100)>12 THEN 1740 

IF Z=1 THEN 1840 

FOR K=1 TO Z-1 

IF A(Z)=A(K) THEN 1740 

NEXT K 

IF ZC=10 THEN 1840 

N=A(U> 

A(U)=A(Z) 

A(Z)=N 

RETURN 

FOR Z=N TO N+4 

PRINT 2"— "; 

GOSUB 1950 

PRINT " OF"; 

GOSUB 2070 

IF Z/20INT(Z/2> THEN 1920 

PRINT 

NEXT Z 

PRINT 

RETURN 

K=FNB(A(Z)) 

IF K09 THEN 1980 

PRINT "JACK"; 

IF KO10 THEN 2000 

PRINT "QUEEN"; 

IF KC11 THEN 2020 

PRINT "KING"; 

IF KC>12 THEN 2040 

PRINT "ACE"; 

IF K> = 9 THEM 2060 

PRINT K+2; 

RETURN 

K=INT(A(Z)/100> 

IF KOO THEN 2100 

PRINT " CLUBS", 

IF KOI THEN 2120 

PRINT " DIAMONDS", 

IF K<>2 THEN 2140 

PRINT " HEARTS", 

IF K<>3 THEN 2160 

PRINT " SPADES", 

RETURN 

U = 

FOR Z=N TO N+4 

B(Z)=FNB(A(Z>> 

IF Z=N+4 THEN 2230 

IF IN! (A(Z>.'100)OINT(A(Z+1 1/100) THEN 2230 

U=U+1 

NEXT Z 

IF U<>4 THEN 2310 

X = 1 1 1 1 1 

D=A(N) 
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2270 


H»="A FLUS" 


2280 


It = "H IN" 


2290 


U=15 


2300 


RETURN 


23T0 


FOR Z=N 10 N+3 


2320 


FOR K=Z+1 TO N+4 


2330 


IF B(ZK=B(K> THEM 2390 


2340 


X=A(Z> 


2350 


A(Z)=A(K) 


2360 


B(Z)=B(K) 


2370 


A(K)=X 


2380 


B(K)=AU!)~100*INT<A(K)/100! 


2390 


NEXT K 


2400 


NEXT Z 


2410 


X=0 


2420 


FOR Z=N TO N+3 


2430 


IF B(Z)OB(Z+1> THEN 2470 


2440 


X=X+1 1*10" (2-N) 


2450 


D=A(Z> 


2460 


OOSUB 2760 


2470 


NEXT Z 


2480 


IF XOO THEN 2620 


2490 


IF B(N) + 30B(N+3> THEN 2520 


2500 


X=1111 


2510 


U = 10 


2520 


IF B(N+l) + 30B(N+4) THEN 2620 


2530 


IF UO10 THEN 2600 


2540 


U=14 


2550 


H$="STRAIG" 


2560 


I*="HT" 


2570 


X=l 1 1 1 1 


2580 


D=A(N+4) 


2590 


RETURN 


2600 


U = 10 


2610 


X=11110 


2620 


IF U>=10 THEN 2690 


2630 


D=A(N+4) 


2640 


HS="SCHMAL" 


2650 


I»="TZ, " 


2660 


U=9 


2670 


X=110OO 


2680 


GOTO 2740 


2690 


IF UO10 THEN 2720 


2700 


IF 1=1 THEN 2740 


2710 


GOTO 2750 


2720 


IF U>12 THEN 2750 


2730 


IF FNB(D>>6 THEN 2750 


2740 


1 = 6 


2750 


RETURN 


2760 


IF U>=1 1 THEN 2810 


2770 


0=11 


2780 


H$="A PAIR" 


2790 


IS = " OF " 


2800 


RETURN 


2810 


IF U011 THEN 2910 


2820 


IF B(Z)OB(Z-1) THEM 2870 


2830 


H$="THREE" 


2840 


I» = » » 


2850 


U = 13 


2860 


RETURN 


2870 


H»="TUO P" 


2880 


I»="AIR, " 


2890 


U=12 


2900 


RETURN 


2910 


IF U.:>!2 THEN 2960 


2920 


U=16 


2930 


H$="FULL H" 


2940 


I$="OUSE, " 


2950 


RETURN 


2960 


IF B(Z)OB(Z-1) THEN 3010 


2970 


U=17 


2980 


H*="FOUR" 


2990 


I$ = " " 


.3000 


RETURN 


3010 


U=16 


3020 


HS="FULL H" 


3030 


It="OUSE, " 


3040 


RETURN 


3050 


G = 


3060 


PRINT "UHAT IS YOUR BET"; 


3070 


INPUT T 


3oeo 


IF T-INT(T)=0 THEN 3140 


3090 


IF KOO THEN 3120 


3100 


IF GOO THEN 3120 


3110 


IF T=.5 THEM 3410 


3120 


PRINT "NO SHALL CHANGE, PELASE 


3130 


GOTO 3060 


3140 


IF S-e-T;=0 THEN .31 '0 


3150 


GOSUB 3830 


3160 


G010 3060 


3170 


IF TOO THEN 3200 


3180 


1 = 3 



3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 

3 9 1 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 

4 030 
4040 
4050 
4060 
40 70 
4080 
4090 
4100 



GOTO 3380 

IT G+F>=K THEN 3230 

PRINT "IF YOU CAN T SEE NY BET, THEN FOLD" 

GOTO 3060 

6 = G + T 

IF G=K THEN 3380 

IF ZOl THEN 3420 

IF G>5 THEN 3300 

IF Z>=2 THEN 3350 

V=5 

GOTO 3420 



= 1 



THEN 3320 
5 THEN 3350 



"I FOLD" 



IF 

IF T<=2 

1 = 4 

PRINT 

RETURN 

IF Z=2 THEN 3430 

PRINT "I'LL SEE YOU" 

K=G 

S=5-G 

C=C-K 

P=P+G+K 

RETURN 

IF G>3*Z THEN 3350 

V=6-K+FNA(0) 

GOSUB 3480 

PRINT "I'LL SEE YOU, AND RAISE YOU"V 

K=G + U 

GOTO 3060 

IF C-G-V>=0 THEN 3660 

IF GOO THEN 3520 

= C 

RETURN 

IF C-li>=0 THEN 3340 

IF (0/2)01111(0/2) THEN 3600 

PRINT "UOULD YOU LIKE TO BUY BACK YOUR UATCH FOR *50"; 

INPUT J* 

IF JJ="NO" THEN 3600 

C=C+50 

0=0/2 

RETURN 

IF 0/3OINT(Q/3> THEN 3670 

PRINT "UOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR $50" 

INPUT J$ 

IF J»="NO" THEN 3670 

C=C+50 

= U/3 

RETURN 

PRINT 

STOP 

PRINT Ht;l»; 

IF HK>"A FLUS 

K=INT(K/100) 

GOSUB 2080 

PRINT 

RETURN 

K=FNB(K> 

GOSUB 1760 

IF H$="SCH«AL" THEN 3 

IF HtO"5TRAIG 

PRINT " HIGH" 

RETURN 

PRINT "S" 

RETURN 

PRINT 

PRINT "fOU CAN'T BE T UITH UHAT YOU HAVEN' I (jOF" 

IF 0/2=INT(0/2) THEN 3970 

PRINT "UOULD YOU LIKE TO SELL YOUR UATCH"; 

INPUT J* 

IF J»="NO" THEN 3970 

IF FNA(0)>=7 THEN 3930 

PRINT "I'LL GIVE YOU $75 FOR IT" 

S=S+75 

6010 3950 

PRINT "THAT'S A PRETTY CRUMBY UATCH - I'LL GIVE YOU S25" 

S=S+25 

0=0*2 

RETURN 

IF 0/3OINH0/3! THEN 4090 

PRINT "WILL YOU PARI UITH THAT DIAMOND TIE TACK": 

INPUT J$ 

THEN 4080 

6 THEN 4050 

ARE NOU 1100 RICHER" 



I'M BUSTED. CONGRAIULATIUNS!" 



THEN 3750 



THEN 3810 



IF J»="NO" 

IF FNA(O),' 

PRINT "YOU 

S=S+1 00 

GOTO 4070 

PRINT "IT'S PASTE. 

S=S+25 

= + 3 

RETURN 

PRINT 

END 



YOUR UAD IS SHOT. SO LONG, SOCKER' 
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Queen 




<=HaJW-€^— 



This game is based on the permissi- 
ble moves of the chess queen — i.e., 
along any vertical, horizontal, or 
diagonal. In this game, the queen can 
only move to the left, down, and 
diagonally down to the left. 

The object of the game is to place the 
queen (one only) in the lower left-hand 
square (no. 158), by alternating moves 
between you and the computer. The 
one to place the queen there wins. 

You go first and place the queen in 
any one of the squares on the top row 
or the right-hand column. That is your 
first move. The computer is beatable, 
but it takes some figuring. See if you 
can devise a winning strategy. 



si ;i 61 51 41 31 21 11 
?2 82 72 62 52 42 32 22 
103 93 83 73 63 S3 43 33 
114 104 94 84 74 64 54 44 
125 115 105 95 85 75 65 55 
136 126 116 106 94 86 76 66 
147 137 127 117 107 97 87 77 
158 148 138 128 118 108 98 88 



QUEEN 
CREATIVE COHPUTING HORRIST0UN, NEU JERSEY 



DO YOU UANT INSTRUCTIONS? YES 

UE ARE 00ING TO PLAY A GAHE BASED ON ONE OF THE CHESS 
HOMES. OUR QUEEN UILL BE ABLE TO MOVE ONLY TO THE LEFT, 
D0UN, OR DIAGONALLY D0UN AND TO THE LEFT. 

THE OBJECT OF THE GAHE IS TO PLACE THE QUEEN IN THE LOWER 
LEFT HAND SQUARE BY ALTERNATING HOVES BETUEEN YOU AND THE 
C0HPUTER. THE FIRST ONE TO PLACE THE QUEEN THERE UINS. 

YOU GO FIRST AND PLACE THE 0UEEN IN ANY ONE OF THE SQUARES 

ON THE TOP R0U OR RIGHT HAND C0LUHN. 

THAT UILL BE YOUR FIRST HOVE. 

UE ALTERNATE HOVES. 

YOU HAY FORFEIT BY TYPING '0' AS YOUR HOVE. 

BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE. 



UHERE UOULD YOU LIKE TO START? 44 
COHPUTER H0VE3 TO SQUARE 55 
UHAT IS YOUR HOVE? 65 
COHPUTER HOVES TO SQUARE 75 
UHAT IS YOUR HOVET 85 
COHPUTER HOVES TO SQUARE 127 
UHAT IS YOUR HOVE? 130 
COHPUTER HOVES TO SQUARE 158 

NICE TRY, BUT IT LOOKS LIKE I HAVE UON. 
THANKS FOR PLAYING. 

ANYONE ELSE CARE TO TRY? YES 

UHERE UOULD YOU LIKE TO START? 31 
COHPUTER HOVES TO SQUARE 75 
UHAT IS YOUR HOVE? 95 ~ - 
COHPUTER HOVES TO SQUARE 158 

NICE TRY, BUT IT LOOKS LIKE I HAVE UON. 
THANKS FOR PLAYING. 

ANYONE ELSE CARE TO TRY? NO 

OK — THANKS AOAIN. 
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1 PRINT TAB(33);"0UEEN" 

2 PRINT TAB(15);"CREATIVE COHPUTING 

3 PRINT:PRINT:PRINT 
10 DIM SIM) 



HORRISTOUN, NEU JERSEY" 



11 FOR 1=1 TO 64 














12 READ S(I) 
















13 NEXT I 
















14 DATA 81, 


71, 


41, 


51, 


<1. 


31, 


21, 


11 


IS DATA 92, 


82, 


?2, 


62, 


52, 


42, 


32, 


22 


16 DATA 103, 


93, 


83, 


73, 


63, 


53, 


43, 


33 


17 DATA 114, 


104, 


»4, 


84, 


74, 


64, 


54, 


44 


18 DATA 123, 


its, 


10S, 


95, 


85, 


75, 


65, 


55 


1? DATA 136, 


126, 


116, 


106, 


96, 


86, 


76, 


66 


20 DATA 147, 


137, 


127, 


117, 


107, 


»7, 


87, 


77 


21 DATA 1S8, 


14B, 


138, 


128, 


118, 


108, 


98, 


88 



22 INPUT "DO YOU UANT INSTRUCTIONS";!!! 

23 IF U»="NO" THEN 30 

24 IF U$="YES" THEN 28 

25 PRINT "PLEASE ANSUER 'YES' OR 'NO'." 

26 60T0 22 

26 60SUB 5000 

29 GOTO 100 

30 GOSUB 5150 

90 REM ERROR CHECKS 

100 PRINT "UHERE UOULD YOU LIKE TO START"; 

110 INPUT HI 

115 IF H1=0 THEN 232 

120 TIMNKH1/10) 

130 UI=Ht-10»T1 

140 IF Ul=1 THEN 200 

150 IF Ut=TI THEN 200 

160 PRINT "PLEASE READ THE DIRECTIONS AGAIN." 

170 PRINT "YOU HAVE BEGUN ILLEGALLY." 

175 PRINT 

180 GOTO 100 

200 GOSUB 2000 

210 PRINT "CONPUTER HOVES TO SQUARE";H 

215 IF H"138 THEN 3400 

220 PRINT "UHAT IS YOUR HOVE"; 

230 INPUT HI 

231 IF H1O0 THEN 239 

232 PRINT 

233 PRINT "IT LOOKS LIKE I HAVE UON BY FORFEIT." 

234 PRINT 

235 GOTO 4000 

239 IF KK=H THEN 3200 

240 T1=INT(H1/10) 
250 UI«H1-10*T1 
260 P=U1-U 

270 IF POO THEN 300 

280 L-T1-T 

290 IF L<=0 THEN 3200 

295 GOTO 200 

300 IF T1-T OP THEN 320 

310 GOTO 200 

320 IF T1-T <>2*P THEN 3200 

330 GOTO 200 

1990 REH LOCATE HOVE FOR COHPUTER 

2000 IF H1M1 THEN 2180 

2010 IF HIM4 THEN 2180 

2020 IF Hl=73 THEN 2180 

2030 IF Hl=75 THEN 2180 

2040 IF H1«126 THEN 2180 

2050 IF H1*127 THEN 2180 

2060 IF Hl»158 THEN 3300 

2065 C=0 

2070 FOR K=7 TO 1 STEP -1 

2080 U=U1 

2090 T=T1+K 

2100 GOSUB 3500 

2105 IF C = 1 THEN 2160 

2110 U=U*K 

2120 GOSUB 3500 

2125 IF C=1 THEN 2160 

2130 T=T+K 

2140 GOSUB 3500 

2145 IF C=1 THEN 2160 

2150 NEXT K 

2155 GOTO 2180 

2160 C=0 

2170 RETURN 

2180 GOSUB 3000 

2190 RETURN 

2990 REH RANDOH HOVE 



A T 



TRY AGAIN"; 



3000 Z-RND(I) 

3010 IF Z>.6 THEN 3110 

3020 IF Z>.3 THEN 3070 

3030 U=U1 

3040 T=T1H 

3050 H=10*T+U 

3060 RETURN 

3070 U=UH1 

3080 T=TT+2 

3090 lt=10»T+U 

3100 RETURN 

3110 U'UHI 

3120 T»TI+1 

3130 H«10*T+U 

3140 RETURN 

3190 REN ILLEGAL HOVE MESSAGE 

3200 PRINT 

3210 PRINT "YOU CHE 

3220 60T0 230 

3290 REH PLAYER UINS 

3300 PRINT 

3310 PRINT 

3320 PRINT 

3330 PRINT 

3340 PRINT 

3350 PRINT 

3360 PRINT 

3370 GOTO 4000 

3390 REH ' COHPUTER UINS 

3400 PRINT 

3410 PRINT 

3420 PRINT 

3430 PRINT 

3440 GOTO 4000 

3490 REN TEST FOR COHPUTER HOVE 

3S00 H»10»T+U 

3510 IF H=I58 THEN 3570 

3520 IF H»127 THEN 3570 

3530 IF H=126 THEN 3570 

3540 IF H=75 THEN 3570 

3550 IF H=73 THEN 3570 

3560 RETURN 

3570 C=1 

3580 GOTO 3560 

3990 REH ANOTHER GAHE??? 

4000 PRINT "ANYONE ELSE CARE TO TRY"; 

4010 INPUT 0» 

4020 PRINT 

4030 IF 0»="YES" THEN 100 

4040 IF Q»="NO" THEN 4050 

4042 PRINT "PLEASE ANSUER 'YES' OR 'NO'." 

4045 OOTO 4000 

4050 PRINT "OK — THANKS AGAIN." 

4040 STOP 

DIRECTIONS 
"UE ARE GOING TO PLAY A GAHE BASED ON ONE OF THE CHESS" 
"HOVES. OUR OUEEN UILL BE ABLE TO MOVE ONLY TO THE LEFT," 
"DOUN, OR DIAGONALLY DOUN AND TO THE LEFT." 



"CONGRATULATIONS. . ." 

"YOU HAVE UON— VERY UELL PLAYED." 

"IT LOOKS LIKE I HAVE HET HY HATCH." 

"THANKS FOR PLAYIN6— I CAN'T UIN ALL THE TIHE. 



"NICE TRY, BUT IT LOOKS LIKE I HAVE UON. 
"THANKS FOR PLAYINB." 



4990 REH 
5000 PRINT 
5010 PRINT 
5020 PRINT 
5030 PRINT 
3040 PRINT 
5050 PRINT 



THE OBJECT OF THE GAHE IS TO PLACE THE OUEEN IN THE LOUER" 
LEFT HAND SQUARE BY ALTERNATING HOVES BETUEEN YOU AND THE" 
THE FIRST ONE TO PLACE THE QUEEN THERE UINS." 



5060 PRINT "COHPUTER 

3070 PRINT 

5080 PRINT "YOU GO FIRST AND PLACE THE OUEEN IN ANY ONE OF THE SQUARES" 

5090 PRINT "ON THE TOP ROU OR RIGHT HAND COLUHN." 

5100 PRINT "THAT UILL BE YOUR FIRST HOVE." 

5110 PRINT "UE ALTERNATE HOVES." 

5120 PRINT "YOU HAY FORFEIT BY TYPING '0' AS YOUR MOVE." 

5130 PRINT "BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE." 

5140 PRINT 

5150 PRINT 

5160 PRINT 

5170 FOR- A=0 TO 7 

5180 FOR B*1 TO 8 

5185 I=B*A+B 

5190 PRINT SU>; 

3200 NEXT B 

5210 PRINT 

5220 PRINT 

5230 PRINT 

5240 NEXT A 

5250 PRINT 

5260 RETURN 

9999 END 
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Reverse 



The game of REVERSE requires you 
to arrange a list of numbers in 
numerical order from left to right. To 
move, you tell the computer how many 
numbers (counting from the left) to 
reverse. For example, if the current list 
is: 

2345 16789 
and you reverse 4, the result will be: 

5432 16789 
Now if you reverse 5, you will! 

There are many ways to beat the 
game, but approaches tend to be either 
algorithmic or heuristic. The game thus 
offers the player a chance to play with 
these concepts in a practical (rather 
than theoretical) context. 

An algorithmic approach guarantees 
a solution in a predictable number of 
moves, given the number of items in the 
list. For example, one method 
guarantees a solution in 2N - 3 moves 
when the list contains N numbers. The 
essence of an algorithmic approach is 
that you know in advance what your 
next move will be. One could easily 
program a computer to do this. 

A heuristic approach takes advan- 
tage of "partial orderings" in the list at 
any moment. Using this type of ap- 
proach, your next move is dependent 
on the way the list currently appears. 
This way of solving the problem does 
not guarantee a solution in a predic- 
table number of moves, but if you are 
lucky and clever, you may come out 
ahead of the algorithmic solutions. 
One could not so easily program this 
method. 

In practice, many players adopt a 
"mixed" strategy, with both algorithmic 
and heuristic features. Is this better 
than either "pure" strategy? 

The program was created by Peter 
Sessions of People's Computer Com- 
pany and the notes above adapted from 
his original write-up. 



REVERSE 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 

REVERSE — A CAME OF SKILL 

DO YOU UANT THE RULES? YES 

THIS IS THE GAHE OF 'REVERSE'. TO UIN, ALL YOU HAVE 
TO DO IS ARRANGE A LIST OF NUMBERS -(1 THROUGH 9 ) 
IN NUMERICAL ORDER FROM LEFT TO RIGHT. TO HOVE, YOU 
TELL ME HOU MANY NUMBERS (COUNTING FROM THE LEFT) TO 
REVERSE. FOR EXAMPLE, IF THE CURRENT LIST IS: 

2 3 4 5 14 7 8V 

AND YOU REVERSE 4, THE RESULT UILL BE: 

54321678? 

NOU IF YOU REVERSE 5, YOU UIN I 

12343678? 

NO DOUBT YOU UILL LIKE THIS SAME, BUT 
IF YOU UANT TO QUIT, REVERSE (ZERO). 

HERE UE 00 ... THE LIST IS: 

2 4 5 1 ? 6 3 7 8 
HOU MANY SHALL I REVERSE? ? 

8 7 3 6 ? 1 5 4 2 
HOU MANY SHALL I REVERSE? 4 

6 3 7 8 ? 1 5 4 2 
HOU HANY SHALL I REVERSE? S 

? 8 7 3 6 1 5 4 2 
HOU HANY SHALL I REVERSE? ? 

24516378? 
HOU MANY SHALL I REVERSE? 3 

542163789 
HOU MANY SHALL I REVERSE? 4 

12 4 5 6 3 7 8? 
HOU MANY SHALL I REVERSE? 6 

3 6 5 4 2 17 8? 
HOU MANY SHALL I REVERSE? 4 

4 5 6 3 2 17 8 9 
HOU MANY SHALL I REVERSE? 3 

65432178? 
HOU MANY SHALL I REVERSE? 6 

12345678? 
YOU UON IT IN 10 MOVES!! I 



TRY AGAIN (YES OR N0>? NO 
O.K. HOPE YOU HAD FUN!! 
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5H^)216T&S 



NORRISTOUN, NEU JERSEY" 
PRINT 



10 PRINT TAB(32);"REVERSE" 

20 PRINT TAB(I5);"CREATIVE COMPUTING 

30 PRINT:PRINTiPRINT 

100 PRINT "REVERSE — A 6ANE OF SKILL" 

130 DIN A(20) 

140 REH »»» H-NUMBER OF NUMBERS 

150 N=9 

140 PRINT "DO YOU UANT THE RULES"; 

170 INPUT A« 

180 IF A»="NO" THEN 210 

190 GOSUB 710 

200 REH **» HAKE A RANDOH LIST Ad) TO A(N) 

210 A(1)»INT((N-1)»RN»(1)*2) 

220 FOR K-2 TO N 

230 A<K)=INT<N»RND(1>+1> 

240 FOR J=1 TO K-1 

250 IF A(K)*AU> THEN 230 

240 NEXT J: NEXT K 

280 REH *»» PRINT ORIGINAL LIST AND START GAHE 

290 PRINT! PRINT "HERE UE GO ... THE LIST IS:" 

310 T=0 

320 GOSUB 610 

330 PRINT "HOU HANY SHALL I REVERSE"; 

340 INPUT R 

350 IF R«0 THEN 520 

340 IF R<«N THEN 390 

370 PRINT "OOPS I TOO HAHY1 I CAN REVERSE AT M0ST";N: GOTO 330 

390 W+1 

400 REH »»* REVRESE R NUHBERS AND PRINT NEU LIST 

410 FOR K-1 TO INT(R/2> 

420 Z'A(K) 

430 A(K)=A(R-K+1) 

440 A(R-K*1)=Z 

450 NEXT K 

440 GOSUB 410 

470 REH **♦ CHECK FOR A UIN 

480 FOR K=1 TO N 

490 IF A(K)OK THEN 330 

300 NEXT K 

S10 PRINT "YOU UQN IT IN";T ; "HOUESi ! I": PRINT 

520 PRINT 

330 PRINT "TRY AGAIN (YES OR NO)"; 

340 INPUT A* 

550 IF A»="YES" THEN 210 

540 PRINT: PRINT "O.K. HOPE YOU HAD FUNII": GOTO 99? 

600 REH ♦»« SUBROUTINE TO PRINT LIST 

610 PRINT: FOR K-1 TO N: PRINT A(K);: NEXT K 

650 PRINT: PRINT: RETURN 

700 REH *»♦ SUBROUTINE TO PRINT THE RULES 

710 PRINT: PRINT "THIS IS THE GAME OF 'REVERSE'. 

720 PRINT "TO DO IS ARRANGE A LIST OF NUHBERS (1 THROUGH";N;">" 

730 PRINT "IN NUHERICAL ORDER FROM LEFT TO RIGHT. TO HOVE, YOU" 

740 PRINT "TELL HE HOU HANY NUMBERS (COUNTING FROM THE LEFT) TO" 

730 PRINT "REVERSE. FOR EXAMPLE, IF THE CURRENT LIST IS:" 

760 PRINT: PRINT "234514789" 

770 PRINT: PRINT "AND YOU REVERSE 4, THE RESULT UILL BE:" 

780 PRINT: PRINT "543216789" 

790 PRINT: PRINT "NOU IF YOU REVERSE 5, YOU UIN!" 

800 PRINT: PRINT "12 3 4 5 6 7 8 9": PRINT 

810 PRINT "NO DOUBT YOU UILL LIKE THIS GAHE, BUT" 

820 PRINT "IF YOU UANT TO QUIT, REVERSE (ZERO).": PRINT: RETURN 

999 END 



TO UIN, ALL YOU HAVE" 
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Rock, Scissors, 
Paper 



Remember the game of rock- 
scissors-paper. You and your oppo- 
nent make a motion three times with 
your fists and then either show a flat 
hand (paper), fist (rock), or two fingers 
(scissors). Depending upon what is 
shown, the game is atie (both show the 
same) or one person wins. Paper wraps 
up rock, so it wins. Scissors cut paper, 
so they win. And rock breaks scissors, 
so it wins. 

In this computerized version of rock- 
scissors-paper, you can play up to ten 
games vs. the computer. 

Charles Lund wrote this game while 
at the American School in The Hague, 
Netherlands. 



GAHE OF ROCK, SCISSORS, PAPER 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 



10 PRINT TAB(21);"GAHE OF ROCK, SCISSORS, PAPER" 

20 PRINT TAB(15);"CREATIVE COHPUTING HORRISTOUN^ NEU JERSEY" 

25 PRINT:PRINT:PRINT 

30 INPUT "HOU HANY GAHES";Q 

40 IF Q<1t THEN 60 

50 PRINT "SORRY, BUT UE AREN'T ALL0UED TO PLAY THAT HANY.": GOTO 30 

60 FOR 0*1 TO Q 

70 PRINT: PRINT "BANE NUHBER";B 

80 X=INT<RND(1)»3t1> 

V0 PRINT "3«R0CK...2=SCISS0RS...1=PAPER" 

100 INPUT "1...2...3...UHAT'S YOUR CHQICE";K 

110 IF (K-1)»(K-2)*(K-3)<>0 THEN PRINT "INVALID.": GOTO 90 

120 PRINT "THIS IS HY CHOICE..." 

130 ON X 00T0 140,150,160 

140 PRINT "...PAPER": GOTO 170 

150 PRINT "...SCISSORS": BOT0 170 

160 PRINT "...ROCK" 

170 IF X«K THEN 250 

180 IF X>K THEN 230 

190 IF X=1 THEN 210 

200 PRINT "YOU UINI I !":H=H+1 : GOTO 260 

210 IF K<>3 THEN 200 

220 PRINT "U0U! I UINI! !":C=C+1 :60T0 260 

230 IF KOI OR X<>3 THEN 220 

240 00T0 200 

25.0 PRINT "TIE GAHE. NO UINNER." 

260 NEXT 6 

270 PRINT: PRINT "HERE IS THE FINAL GAHE SCORE:" 

280 PRINT "I HAVE U0N";C;"BAHE(S)." 

290 PRINT "YOU HAVE U0N";H;"GAHE(S>." 

300 PRINT "AND";Q-(CtH>;"GAHE<S> ENDED IN A TIE." 

310 PRINT: PRINT "THANKS FOR PLAYING! I" 

320 END 



HOU HANY GAHES? 10 

GAHE NUHBER 1 

3=R0CK. . .2=SCISSORS. .. 1=PAPER 

1...2...3...UHAT'S YOUR CHOICE? 3 

THIS IS HY CHOICE... 

...PAPER 

U0U! I UIN! i ! 

0AHE NUHBER 2 

3=R0CK...2=SCISSQRS...1=PAPER 

1...2...3...UHAT'S YOUR CHOICE? 2 

THIS IS HY CHOICE... 

...ROCK 

U0U! I UlNIH 



GAHE NUMBER 3 

3=R0CK...2=SCISS0RS. .1=PAPER 
1...2...3...UHAT'S 1 UR CHOICE? 2 
THIS IS HY CHOICE... 
...PAPER 
YOU UINI!! 

GAHE NUNBER 4 

3=R0CK. . .2»SCISS0RS. . . 1 =PAPER 

1...2...3...UHAT'S YOUR CHOICE? 1 

THIS IS HY CHOICE... 

...ROCK 

YOU UIN! 1 1 

GAHE NUHBER 5 

3=R0CK...2=SCISSORS...1=PAPER 
1...2...3...UHAT'S YOUR CHOICE? 3 
THIS IS HY CHOICE... 
...SCISSORS 
YOU UIN!!! 

GAHE NUHBER 6 

3=R0CK...2=SCISS0RS...1=PAPER 

1...2...3...UHAT-S YOUR CHOICE? 2 

THIS IS HY CHOICE... 

...SCISSORS 

TIE GAHE. NO UINNER. 

GAHE NUHBER 7 

3=R0CK...2=SCISS0RS...1=PAPER 

1...2...3...UHAT'S YOUR CHOICE? 2 

THIS IS HY CHOICE... 

...ROCK 

UOUI I UINI! I 

GAHE NUHBER S 

3=R0CK...2»SCISS0RS...1=PAPER 

1...2...3...UHAT'S YOUR CHOICE? 3 

THIS IS HY CHOICE... 

...ROCK 

TIE GAHE. NO UINNER. 

GAHE NUHBER 9 

3=R0CK. . .2=SCISSQRS. . . 1=PAPER 

1...2...3...UHAT'S YOUR CHOICE? 1 

THIS IS HY CHOICE... 

...ROCK 

YOU UINHI- 

GAHE NUHBER 10 

3=R0CK. . .2=SCISSORS. . . 1=PAPER 

1...2...3...UHAT'S YOUR CHOICE? 2 

THIS IS HY CHOICE... 

...ROCK 

UOU! I UIN!!! 

HERE IS THE FINAL GAME SCORE: 
I HAVE UON 4 GAHE(S). 
YOU HAVE UON 4 GAHE(S). 
AND 2 GAHE(S) ENDED IN A TIE. 
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Roulette 



This game simulates an American 
Roulette wheel; "American" because it 
has38 number compartments (1 to 36, 
and 00). The European wheel has 37 
numbers (1 to 36 and 0). The Bahamas, 
Puerto Rico, and South American 
countries are slowly switching to the 
American wheel because it gives the 
house a bigger percentage. Odd and 
even numbers alternate around the 
wheel, as do red and black. The layout 
of the wheel insures a highly random 
number pattern. Intact, roulette wheels 
are sometimes used to generate tables 
of random numbers. 

In this game, you may bet from $5 to 
$500 and you may bet on red or black, 
odd or even, first or second 18 
numbers, a column, or single number. 
You may place any number of bets on 
each spin of the wheel. 

There is no long-range winning 
strategy for playing roulette. However, 
a good strategy is that of "doubling." 
First spin, bet $1 on an even/odds bet 
(odd, even, red, or black). If you lose, 
double your bet to $2. If you lose again, 
double to $4. Continue to double until 
you win (i.e., you break even on a 
losing sequence). As soon as you win, 
bet $1 again, and after every win, bet 
$ 1 . Do not ever bet more than $ 1 unless 
you are recuperating losses by dou- 
bling. Do not ever bet anything but the 
even odds bets. Good luck! 



TYPES OF BETS 

THE NUNBERS 1 TO 36 SIGNIFY A STRAIGHT BET 
ON THAT NUMBER 
THESE PAY OFF 35:1 

THE 2:1 BETS ARE: 

3?) 1-12 40) FIRST COLUMN 

38) 13-24 41) SECOND COLUMN 

39) 25-36 42) THIRD COLUHN 

THE EVEN HONEY BETS ARE: 

43) 1-18 46) ODD 

44) 19-36' 47) RED 

45) EVEN 48) BLACK 



49)0 AND 50)00 PAY OFF 35:1 
NOTE: AND 00 DO NOT COUNT UNDER ANY 
BETS EXCEPT THEIR OUN 

UHEN I ASK FOR EACH BET, TYPE THE NUHBER 
AND THE AH0UNT, SEPARATED BY A C0HHA 
FOR EXAHPLE:T0 BET «5O0 ON BLACK, TYPE 48,500 
UHEN I ASK FOR A BET 

HINIHUH BET IS »5,HAXIHUH IS 1500 



H0U MANY 


BETS! 2 








NUHBER 1 


? 2,1 


100 








NUHBER 2 


T 46, 


,100 








SPINNIN0 












20 BLACK 










YOU LOSE 


100 I 


)0LLARS 


ON 


BET 


1 


YOU LOSE 


100 1 


10LLARS 


ON 


BET 


2 


TOTALS: 




HE 
100200 


1 




YOU 
800 


A6AIN? YES 










H0U HANY 


BETS? 4 








NUHBER 1 


T 15 


,20 








NUHBER 2 


? 21 


,20 








NUHBER 3 


T 40 


,100 








NUHBER 4 


T 49 


,10 








SPINNING 













ROULETTE 
CREATIVE COHPUTING HORRIST0UN, NEU JERSEY 



ENTER CURRENT DATE (AS IN 'JANUARY 23, 1978') -? DECEMBER 2, 1977 
UELC0ME TO THE ROULETTE TABLE 



DO YOU WANT INSTRUCTIONS? YES 



THIS IS THE 


BETTING LAYOUT 


<*=RED) 




1» 2 


3* 


4 5» 


6 


7* 8 


9* 


10 11 


12» 



13 


14* 


15 


16* 


17 


18* 


19* 


20 


21* 


22 


23* 


24 


25* 


26 


27* 


28 


29 


30* 


31 


32* 


33 


34» 


35 


36* 



YOU LOSE 20 DOLLARS ON BET 1 

YOU LOSE 20 DOLLARS ON BET 2 

YOU LOSE 100 DOLLARS ON BET 3 

YOU UIN 350 DOLLARS ON BET 4 

TOTALS: HE YOU 

9999Q 1010 
AGAIN? NO 
TO UH0H SHALL I HAKE THE CHECK? A. C0HPUTER 



CHECK NO. 22 

DECEMBER 2, 1977 

PAY TO THE ORDER OF A. COMPUTER * 1010 

THE MEMORY BANK OF VIRGINIA 

THE COMPUTER 



00 



C0HE BACK SOON! 
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10 PRINT TAB < 32 >; "ROULETTE" 

20 PRINT TAB<15);"CREATIVE COMPUTING MORRISTOUN, NEW JERSEY" 

30 PRINT:PRINT:PRINT 

40 PRINT "ENTER CURRENT DATE (AS IN JANUARY 23, 1978') -"; 

50 INPUT D$,E» 

1000 REH-ROULETTE 

1010 REH-DAIHD JOSLIN 

1020 PRINT "UELCOHE TO THE ROULETTE TABLE" 

1030 PRINT 

1040 PRINT "DO YOU UANT INSTRUCTIONS"; 

1050 INPUT Y» 

1060 IF LEFTI(Y»,1)="N" THEN 1550 

1070 PRINT 

1080 PRINT "THIS IS THE BETTING LAYOUT" 

1090 PRINT " (*=RED)" 

1100 PRINT 

1110 PRINT " 1» 2 3*" 

1120 PRINT "4 5* 6 " 

1130 PRINT " 7* 8 9*" 

1140 PRINT "10 11 12»» 

1150 PRINT " " 

1160 PRINT "13 14* 15 " 
1170 PRINT "16* 17 18*" 
1180 PRINT "19* 20 21*" 
1190 PRINT "22 23* 24 " 

1200 PRINT " - " 

1210 PRINT "25* 26 27*" 
1220 PRINT "28 29 30*" 
1230 PRINT "31 32* 33 " 
1240 PRINT "34* 35 34*" 

1250 PRINT "-- " 

1240 PRINT 00 

1270 PRINF 

1280 PRINT "TYPES OF BETS" 

1290 PRINT 

1300 PRINT "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET" 

1310 PRINT "ON THAT NUHBER" 

1320 PRINT "THESE PAY OFF 35:1" 

1330 PRINT 

1340 PRINT "THE 2:1 BETS ARE:" 

1350 PRINT " 37) 1-12 40) FIRST COLUMN" 

1360 PRINT " 38) 13-24 41) SECOND COLUMN" 

1370 PRINT " 39) 25-36 42) THIRD COLUMN" 

13B0 PRINT 

1390 PRINT "THE EVEN MONEY BETS ARE:" 

1400 PRINT " 43) 1-18 46) ODD" 

1410 PRINT " 44) 19-36 47) RED" 

1420 PRINT " 45) EVEN 48) BLACK" 

1430 PRINT 

1440 PRINT " 49)0 AND 50)00 PAY OFF 35:1" 

1450 PRINT " NOTE: AND 00 DO NOT COUNT UNDER ANY" 

1460 PRINT " BETS EXCEPT THEIR OUN" 

1470 PRINT 

1480 PRINT "UHEN I ASK FOR EACH BET, TYPE THE NUHBER" 

1490 PRINT "AND THE AMOUNT, SEPARATED BY A COMMA" 

1500 PRINT "FOR EXAHPLE:TO BET 1500 ON BLACK.TYPE 48,500" 

1510 PRINT "UHEN I ASK FOR A BET" 

1520 PRINT 

1530 PRINT "MINIMUM BET IS «5, MAXIMUM IS $500" 

1540 PRINT 

1550 REM-PROORAM BEGINS HERE 

1560 REM-TYPE OF BET(NUMBER) ODDS 

1570 REM DON'T NEED TO DIMENSION STRINGS 

1580 DIH B(100),C(100),T(100),X(38) 

1590 DIM A(50) 

1600 FOR 1=1 TO 38: X(I>=0; NEXT I: REM MAT X=ZER 

1410 P=IOOO 

1620 D=100000. 

1630 PRINT "HOU MANY BETS"; 

1640 INPUT Y 

1650 IF Y<1 OR YOINT(Y) THEN 1630 

1460 FOR 1=1 TO 50: A(I>=0: NEXT I: REM HAT A=Z£R 

1670 FOR C=1 TO Y 

1680 PRINT "NUMBER";C! 



1690 INPUT X,Z 

1700 B(C)=Z 

1710 T(C)=X 

1720 IF X<1 OR X>50 OR XOINT(X) THEN 1480 

1730 IF Z<1 OR ZOINT(Z) THEN 1680 

1740 IF Z<5 OR Z>500 THEN 1480 

1750 IF A(X)=0 THEN 1780 

1740 PRINT "YOU MADE THAT BET ONCE ALREADY, DUM-DUM" 

1770 GOTO 1480 

1780 A(X)=1 

1790 NEXT C 

1800 PRINT "SPINNING" 

1810 PRINT 

1820 PRINT 

1830 S=INT(100*RND(D) 

1840 IF S=0 OR S>38 THEN 1830 

1850 X(S)=X(S)+1 

1840 IF S<37 THEN 1920 

1870 IF S=37 THEN 1900 

1880 PRINT "00" 

1890 GOTO 2020 

1900 PRINT "0" 

1910 GOTO 2020 

1920 RESTORE 

1930 FOR 1=1 TO 18 

1940 READ R 

1950 IF R=S THEN 2000 

1940 NEXT I 

1970 A*="BLACK" 

1980 PRINT S;A» 

1990 GOTO 2020 

2000 A»="REB" 

2010 GOTO 1980 

2020 PRINT 

2030 FOR C=1 TO Y 

2040 IF TICK37 THEN 2710 

2050 ON T(C)-36 GOTO 2090,2190,2220,2250,2300,2350,2400,2470,2500 

2060 ON TIO-45 GOTO 2530,2560,2630 

207O GOTO 2710 

2080 STOP 

2090 REM 1-12(37) 2:1 

2100 IF S <= 12 THEN 2150 

2110 PRINT "YOU LOSE";B(C);"DOLLARS ON BET ";C 

2120 D=D+B(C> 

2130 P=P-B(C> 

2140 GOTO 2180 

2150 PRINT "YOU UIN ";B(C)*2;"D0LLARS ON BET ";C 

2160 D=D-B(C)«2 

2170 P=P*B(C)*2 

2180 GOTO 2810 

2190 REM 13-24(38) 2:1 

2200 IF S>12 AND S<25 THEN 2150 

2210 GOTO 2110 

2220 REM 25-36(39) 2:1 

2230 IF S>24 AND S<37 THEN 2150 

2240 GOTO 2110 

2250 REM FIRST C0LUMN(4O) 2:1 

2260 FOR 1=1 TO 34 STEP 3 

2270 IF S=I THEN 2150 

2280 NEXT I 

2290 GOTO 2110 

2300 REM SECOND C0LUHN(41) 2:1 

2310. FOR 1=2 TO 35 STEP 3 

2320 IF S=I THEN 2150 

2330 NEXT I 

2340 GOTO 2110 

2350 REM THIRD C0LUMN(42) 2:1 

2360 FOR 1=3 TO 36 STEP 3 

2370 IF S=I THEN 2150 

2380 NEXT I 

2390 GOTO 2110 

2400 REM 1-18(43) 1:1 

2410 IF S<19 THEN 2430 

2420 GOTO 2110 
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2430 PRINT "YOU UIN ";B(C);"DOLLARS ON BET";C 

2440 D-D-B(C) 

2450 P=PtB(C> 

2460 GOTO 2810 

2470 REH 19-36(44) 1:1 

2480 IF S<37 AND S>18 THEN 2430 

2490 GOTO 2110 

2S00 REH EVENI45) 1:1 

25J0 IF S/2*INT(S/2) AND S<37 THEN 2430 

2320 GOTO 2110 

2530 REH 0DDI46) 1:1 

2540 IF S/20INKS/2) AND S<37 THEN 2430 

2550 GOTO 2110 

2540 REH RED147) 1:1 

2570 RESTORE 

2580 FOR 1=1 TO 18 

2590 READ R 

2400 IF S=R THEN 2430 

2610 NEXT I 

2420 GOTO 2110 

2430 REH BUCK (48) 1:1 

2440 RESTORE 

2650 FOR 1=1 TO IS 

2660 READ R 

2670 IF S=R THEN 2110 

2680 NEXT I 

2690 IF S>36 THEN 2110 

2700 GOTO 2430 

2710 REH— 1T036, 0,00(1-36, 49, 50)35:1 

2720 IF KCK49 THEN 2760 

2730 IF T(C)=49 AND S=37 THEN 2780 

2740 IF T(C)=50 AND S=38 THEN 2780 

2750 GOTO 2110 

2760 IF T(C)=S THEN 2780 

2770 GOTO 2110 

2780 PRINT "YOU UIN "JB(C)*35;"D0LLARS ON BET "J.C 

2790 D=D-B(C>*35 

2800 P=P+B(C>*35 

2810 NEXT C 

2820 PRINT 

2830 PRINT "TOTALS:", "ME", "YOU" 

2840 PRINT " ",D,P 

2850 IF P>0 THEN 2880 

2860 PRINT "OOPS! YOU JUST SPENT YOUR LAST DOLLAR" 

2870 GOTO 3190 

2880 IF D>0 THEN 2920 



2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3420 



PRINT "YOU BROKE THE HOUSE I" 

P=101000. 

GOTO 2960 

PRINT "AOAIN"; 

INPUT Y$ 

IF LEFT*(Y$,1)="Y" THEN 1630 

DATA 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36 

IF P<1 THEN 3190 

PRINT "TO UHOH SHALL I HAKE THE CHECK"; 

INPUT B» 

PRINT 

FOR 1=1 TO 72: PRINT "-";: NEXT I: REH PRINT 72 DASHES 

PRINT TAB(50);"CHECK NO. "JINT(100*RND(1 ) ) 

PRINT 

GOSUB 3230 

PRINT TAB(40);H» 

PRINT 

PRINT 

PRINT "PAY TO THE ORDER OF ";B»;" » "; 

PRINT P 

PRINT 

PRINT 

PRINT TAB(10),"THE MEHORY BANK OF VIRGINIA" 

PRINT 

PRINT TAB(40),"THE COHPUTER" 

PRINT TAB(40)" — — X— — " 

PRINT 

FOR 1 = 1 TO 72: PRINT "-";: NEXT I 

PRINT "COHE BACK SOON!" 

GOTO 3210 

PRINT "THANKS FOR YOUR MONEY" 

PRINT "I'LL USE IT TO BUY A SOLID GOLD ROULETTE UHEEL" 

PRINT 

GOTO 3420 

REH 

THIS ROUTINE RETURNS THE CURRENT DATE IN M» 
IF YOU HAVE SYSTEH FUNCTIONS TO HANDLE THIS 
THEY CAN BE USED HERE. HOUEVER IN THIS 
PROGRAM, UE JUST INPUT THE DATE AI THE SIARr UF 
THE GAHE. 



REH 
REH 
REH 

REH 
REH 
REH 
REH 



THE DATE IS RETURNED IN VARIABLE M* 



H*=D*+", "+E» 

RETURN 

END 




'X 



140 



Russian Roulette 




A SAME OF »»»»»RUSSIAN ROULETTE. 

A REVOLVER. 

TO SPIM CHAHBER AND PULL TRIGGER. 
' TO GIVE UP. 



In this game, you are given by the 
computer a revolver loaded with one 
bullet and five empty chambers. You 
spin the chamber and pull the trigger 
by inputting a "1," or, if you want to 
quit, input a "2." You win if you play ten 
times and are still alive. 

Tom Adametx wrote this program 
while a student at Curtis Jr. High 
School in Sudbury, Massachusetts. 



t i 

- CLICK - 

7 1 

- CLICK - 

7 1 

- CLICK - 

7 1 

- CLICK - 

7 1 

BANG!!!!! YOU'RE DEAD! 
CONDOLENCES MILL BE SENT TO YOUR RELATIVES. 





...NEXT VICTIM... 






TYPE '1' TO SPIN CHAMBER AND 


PULL TRIGGER. 




TYPE 'V TO GIVE UP. 






GO? 2 






CHICKEN!!!!! 






...NEXT VICTIM... 






TYPE 'V TO SPIN CHAMBER AND 


PULL TRI6GER. 




TYPE '2' TO GIVE UP. 




RUSSIAN ROULETTE 


OOT 1 




CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 


- CLICK - 




1 PRINT TAB (28); "RUSSIAN ROULETTE" 


7 1 

- CLICK - 




2 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 






3 PRINT:PRINT:PRINT 


7 1 




3 PRINT "THIS IS A GAME OF »»»»»RUSSIAN ROULETTE." 


- CLICK - 




10 PRINTlPRINT "HERE IS A REVOLVER." 






20 PRINT "TYPE 'V TO SPIN CHAHBER AND PULL TRIGGER." 


7 1 




22 PRINT "TYPE '2' TO GIVE UP." 


- CLICK - 




23 PRINT "GO"; 






25 N=0 


7 1 




30 INPUT I 


- CLICK - 




31 IF I<>2 THEN 35 






32 PRINT " CHICKENI!!!!" 


7 1 




33 GOTO 72 


- CLICK - 




35 N-N+1 






40 IF RND(1)>. 833333 THEN 70 


7 1 




45 IF N>10 THEN 80 


- CLICK - 




30 PRINT *- CLICK -" 






60 PRINT: GOTO 30 


7 1 




70 PRINT " BANGUI!! YOU'RE DEAD!" 


- CLICK - 




71 PRINT "CONDOLENCES UILL BE SENT TO YOUR RELATIVES." 






72 PRINT:PRINT:PRINT 


7 1 




75 PRINT "...NEXT VICTIM. ..":G0TO 20 


- CLICK - 




80 PRINT "YOU UINII!!!" 






85 PRINT "LET S0HEONE ELSE BLOU HIS BRAINS OUT." 


7 1 




90 GOTO 10 


BANG!!!!! YOU'RE DEAD 




9? END 


CONDOLENCES UILL BE SENT TO 1 


OUR RELATIVES 
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Salvo 



The rules are not explained by the 
program, so read carefully this descrip- 
tion by Larry Siegel, the program 
author. 

SALVO is played on a 10x10 grid or 
board using an x,y coordinate system. 
The player has 4 ships: battleship (5 
squares), cruiser (3 squares), and two 
destroyers (2 squares each). The ships 
may be placed horizontally, vertically, 
or diagonally and must not overlap. 
The ships do not move during the 
game. 

As long as any square of a battleship 
still survives, the player is allowed three 
shots, for a cruiser 2 shots, and for each 
destroyer 1 shot. Thus, at the begin- 
ning of the game the player has 
3+2+1+1 =7 shots. The player enters all 
of his shots and the computer tells what 
was hit. A shot is entered by its grid 
coordinates, x,y. The winner is the one 
who sinks all of the opponent's ships. 

Important note: Your ships and the 
computer's ships are located on 2 
separate 10x10 boards. 

Author of the program is Lawrence 
Siegel of Shaker Heights, Ohio. 



9 

8 

7 

6 

5 

4 

3 

2 
i 






















9 
8 
7 
6 
5 
4 
3 
2 
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SALVO 










CREATIVE COHPUTIHG 








HORRISTOUN, NEI 


JERSE1 




TURN 1 










YOU HAVE 7 SHOTS. 


ENTER COORDINATES 


-OR. 


,, 


? 5,1 


BATTLESHIP 








? 5,2 


? 10,10 








? 5,3 


T 9,9 








? 5,4 


? 8,8 








? 5,5 


? 7,7 








? 5,6 


? 4,4 








? 5,7 


CRUISER 








YOU HIT HY DESTR0YER<B> 


? 3,5 








I HAVE 7 SHOTS. 


? 2,6 








10 8 


T 1,7 








10 10 


DESTROYER<A> 








B 10 


? 1,10 








1 9 


T 2,10 








9 10 


DESTROYERS 








10 9 


? 6,7 








B 8 


? 6,8 








I HIT YOUR BATTLESHIP 


DO YOU UANT TO 


START? 


YES 


I HIT YOUR BATTLESHIP 


DO YOU UANT TO 


SEE 


NY 


SHOTS? YES 


I HIT YOUR BATTLESHIP 





TURN 5 




YOU HAVE 7 SHOTS. 




? 1,5 




? 1,7 




? 1,9 




? 2,4 




? 2,5 




? 2,4 




? 2,7 




YOU HIT HY DESTROYER<A> 




I HAVE 4 SHOTS. 




6 2 


TURN 2 


5 2 


YOU HAVE 7 SHOTS. 


10 3 


? 4,1 


4 1 


? 4,3 


5 1 


? 4,5 


9 3 


? 4,7 




? 6,2 


TURN 4 


? 6,1 


YOU HAVE 7 SHOTS. 


? 4,6 


? 1,4 


I HAVE 7 SHOTS. 


? 1,4 


10 6 


? 1,8 


2 2 


? 2,8 


3 3 


? 2,? 


4 4 


? 3,4 


5 5 


? 3,7 


6 6 


YOU HIT HY DESTROYER<A> 


1 2 


I HAVE 5 SHOTS. 


I HIT YOUR BATTLESHIP 


? 4 




6 3 




6 4 


TURN 3 


2 4 


YOU HAVE 7 SHOTS. 


5 4 


? 4,2 




? 4,4 


TURN 7 


? 4,4 

? 4,1 


YOU HAVE 7 SHOTS. 
? 8,3 


? 4,3 


? 8,5 


? 4,5 


? 8,7 


? 4,7 


? 10,3 


YOU HIT HY DESTROYER<B>. 


? 10,5 


I HAVE 4 SHOTS. 


? 10,7 


1 1 


? 10,9 


4 3 


YOU HIT HY CRUISER. 


2 1 


YOU HIT HY CRUISER. 


2 3 


I HAVE 5 SHOTS. 


3 1 


1 4 


3 2 


2 6 




1 6 


TURN 4 


9 5 


YOU HAVE 7 SHOTS. 


10 5 


7 1,1 


I HIT YOUR CRUISER 


? 1,2 




? 2,2 


TURN 8 


? 2,1 


YOU HAVE 7 SHOTS. 


? 1,3 


? 8,1 


? 2,3 


? 8,2 


? 4,4 


? 8,4 


YOU SHOT THERE BEFORE ON TURN 3 


? 1,10 


? 3,4 


? 2,10 


I HAVE 6 SHOTS. 


? 3,10 


1 3 


? 4,10 


4 2 


I HAVE 5 SHOTS. 


5 3 


1 5 


10 4 


B 4 


1 7 


8 5 


1 a 


2 5 


I HIT YOUR CRUISER 


2 7 
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TURN ? 


TURN It 


1540 


B(Y,Z>»3 


YOU HAVE 7 SHOTS. 


YOU HAVE 5 SHOTS. 


1550 


NEXT X 


T 7,3 


f 5,9 


1560 


PRINT "CRUISER" 


? 7,3 


? 4,10 


1570 


FOR X-1 TO 3 


T 7,7 


7 7,9 


1580 


INPUT Y,Z 


T 9,3 


T 8,10 


1590 


B(Y,Z)«2 


? 9,3 


? 9,9 


1600 


NEXT X 


T 9,7 


YOU SHOT THERE BEFORE ON TURM 9 


1610 


PRINT "BESTROYER<A>" 


T 9,9 


T 8,8 


1620 


FOR X=1 TO 2 


I HAVE 5 SHOTS. 


YOU HIT HY BATTLESHIP. 


1630 


INPUT Y,Z 


3 7 


YOU HIT HY BATTLESHIP. 


1640 


B(Y,Z)=1 


8 6 


I HAVE 3 SHOTS. 


1650 


NEXT X 


3 S 


1 9 


1660 


PRINT "DESTROYER<B>" 


3 4 


2 9 


1670 


FOR X=1 TO 2 


9 6 


10 1 


1680 


INPUT Y,Z 


I HIT YOUR CRUISER 




1690 


B(Y,Z)'=.5 




TURN 12 


1700 


NEXT X 


TURN 10 


YOU HAVE 5 SHOTS. 


1710 


PRINT "BO YOU UANT TO START"; 


YOU HAVE S SHOTS. 


1 3,9 


1720 


INPUT Jl 


T 9,1 


T 4,9 


1730 


IF J»<>"UHERE ARE YOUR SHIPST" THEN 1890 


7 9,2 


t 4,9 


1740 


PRINT "BATTLESHIP" 


T 9,-1 


T 8,9 


1750 


FOR Z«1 TO 5 


1 9,4 


T 10,10 


1760 


PRINT F(Z);6(Z) 


T 9,8 


YOU HIT HY BATTLESHIP. 


1770 


NEXT Z 


YOU HIT HY CRUISER. 


YOU HIT HY BATTLESHIP. 


1780 


PRINT "CRUISER" 


I HAVE 3 SHOTS. 


YOU HIT NY BATTLESHIP. 


1790 


PRINT F(6);0(4) 


10 2 


I HAVE SHOTS. 


1800 


PRINT F(7);G(7) 


1 10 


YOU HAVE UON. 


1810 


PRINT F(8>;G(8> 


2 8 




1820 


PRINT "BESTROYER<A>" 


I HIT YOUR DESTROYER<A> 




1830 


PRINT F(9)JB(9) 






1840 


PRINT F(10);B(10) 






1850 


PRINT *BESTR0YER<B>" 






1860 


PRINT F<11>;0(11> 






1870 


PRINT F(12);G(12) 






1880 


60T0 1710 


1000 PRINT TAB < 33 >; "SALVO" 




1890 


C-0 


-1010 PRINT TAB(15);"CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY" 


1900 


PRINT "DO YOU UANT TO SEE HY SHOTS"; 


1020 PRINT:PRINT:PRINT 




1910 


INPUT Kl 


-1030 REN 




1920 PRINT 


1040 DIH A(10,10),i(10,10),C(7),t(7),E(12),F(12),0(12),H(12>,K(10,10) 1930 


IF J»<>"YES" THEN 2620 


10SO za-o 




1940 REH*««*»«*»»**»**«**»START 


1060 FOR 11=1 TO 12 




1950 


IF J»<>"YES" THEN 1990 


1070 E(U)»-1 




1960 


C«C*1 


1080 H(U)«-1 




1970 


PRINT 


1090 NEXT U 




1980 


PRINT "TURN'JC 


1100 FOR X't TO 10 




1990 


A«0 


1110 FOR Y-1 TO 10 




2000 


FOR U-.5 TO 3 STEP .5 


1120 B(X,Y>»0 




2010 


FOR X«1 TO 10 


1130 NEXT Y 




2020 


FOR Y«1 TO 10 


1140 NEXT X 




2030 


IF B(X,Y)«U THEN 2070 


1150 FOR X=1 TO 12 




2040 


NEXT Y 


1140 F(X)»0 




2050 


NEXT X 


1170 B<X)-0 




2060 


60T0 2080 


1180 NEXT X 




2070 


A=A+INT(U+.5> 


1190 FOR X=1 TO 10 




2080 


NEXT U 


1200 FOR Y=1 TO 10 




2090 


FOR U=1 TO 7 


1210 A(X,Y)=0 




2100 


C(V>=0 


1220 NEXT Y 




2110 


D(U)=0 


1230 NEXT X 




2120 


F(U)=0 


1240 FOR KM TO 1 STEP -1 




2130 


G(U)=0 


1250 U6=0 




2140 


NEXT U 


1240 OOSUB 2910 




2150 


P3=0 


1270 BEF FNA<K)-(3-K)*3-2»INT(K/4)+S0N<K-1)-1 


2160 


FOR X=1 TO 10 


1280 BEF FNB(K)*KtIHT(K/4>-S8N(K-1> 


2170 


FOR Y=1 TO 10 


1290 IF VtV2«V*V2»0 THEN 1260 




2180 


IF A(X,Y)>10 THEN 2200 


1300 IF YtV«FNB(K»10 THEN 1240 


2190 


P3-P3+1 


1310 IF Y+V«FNB(KK1 THEN 1240 




2200 


NEXT Y 


1320 IF X+V2»FNB<K>>10 THEN 1240 


2210 


NEXT X 


1330 IF X+V2»FNB<KK1 THEH 1260 


2220 


PRINT "YOU HAVE";A;"SHOTS." 


1340 U6«U6+1 




2230 


IF P3>=A THEN 2240 


1350 IF U4>25 THEN 1190 




2240 


PRINT "YOU HAVE MORE SHOTS THAN THERE ARf 


1360 FOR 2»0 TO FNB(K) 




2250 


GOTO 2890 


1370 F(Z*FNA(K))»X+V2*Z 




2260 


IF AOO THEN 2290 


1380 B<Z+FNA(K))«Y+V»Z 




2270 


PRINT "I HAVE UON." 


1390 NEXT Z 




2280 


STOP 


1400 U8'FNA(K) 




2290 


FOR U'l TO A 


1405 IF U8MI8+FNB<K> THEN 1460 




2300 


INPUT X,Y 


1410 FOR Z2= U8 TO U8+FNB(K> 




2310 


IF XOINT(X) THEN 2370 


1415 IF U8<2 THEN 1450 




2320 


IF X>10 THEN 2370 


1420 FOR Z3*1 TO U8-1 




2330 


IF X<1 THEN 2370 


1430 IF S0R(<F(Z3)-F(Z2>>*2 4 I 


!0(Z3)-B(Z2>)-2) < 3.59 THEN 1260 


2340 


IF YOIHT(Y) THEN 2370 


1440 NEXT Z3 




2350 


IF Y>10 THEN 2370 


1450 NEXT Z2 




2360 


IF Y>=1 THEN 2390 


1460 FOR Z'O TO FNB(K) 




2370 


PRINT "ILLEGAL, ENTER AGAIN." 


1470 A(F(ZtU8>,0(ZtU8>)«.5tS6N(K-l)*(K-1.5> 


2380 


GOTO 2300 


1480 NEXT Z 




2390 


IF A(X,Y»10 THEN 2440 


1490 NEXT X 




2400 


C(U>«X 


1500 PRINT "ENTER COORDINATES FOR..." 


2410 


0(U>«Y 


1510 PRINT "BATTLESHIP" 




2420 


NEXT U 


1520 FOR X»1 TO 5 




2430 


80TO 2460 


1530 INPUT Y,Z 




2440 


PRINT "YOU SHOT THERE BEFORE ON TURN";AO 
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2450 GOTO 2300 

2460 FOR U=1 TO A 

2470 IF A<C<U),D<U>)=3 THEN 2S40 

2480 IF A<C(U),D<U)>=2 THEN 2S60 

2490 IF A(C(U),B(U)>=1 THEN 2580 

2500 IF A<C<U),B(U))=.5 THEN 2600 

2510 A(C(y),D(«))«IO+C 

2520 NEXT U 

2530 SOTO 2620 

2540 PRINT "YOU HIT NT BATTLESHIP." 

2550 60T0 2510 

2560 PRINT "YOU HIT HY CRUISER." 

2570 BOTO 2510 

2580 PRINT "YOU HIT HY DESTROYER<A>." 

2590 BOTO 2510 

2600 PRINT "YOU HIT HY DESTROYER<B>." 

2610 BOTO 2510 

2620 A=0 

2630 IF J«*"YES" THEN 2670 

2640 C-C+1 

2650 PRINT 

2660 PRINT "TURN";C 

2670 A=0 

2680 FOR U=.5 TO 3 STEP .5 

2690 FOR X=1 TO 10 

2700 FOR Y=1 TO 10 

2710 IF A(X,t)=U THEN 2750 

2720 NEXT Y 

2730 NEXT X 

2740 BOTO 2760 

2750 A=A*INT<U*.5> 

2760 NEXT U 

2770 P3=0 

2780 FOR X=1 TO 10 

2790 FOR Y=1 TO 10 

2800 IF A(X,Y)>10 THEN 2820 

2810 P3=P3+1 

2820 NEXT Y 

2B30 NEXT X 

2840 PRINT "I HAVE";A;"SHOTS." 

2850 IF P3>A THEN 2880 

2860 PRINT "I HAVE NORE SHOTS THAN BLANK SQUARES. 

2870 BOTO 2270 

2880 IF AOO THEN 2960 

2890 PRINT "YOU HAVE HON." 

2900 STOP 

2910 X=INT(RNB(1 1*10+1) 

2920 Y=INT<RND(1)*10+t> 

2930 V«INT<3«RNDC1)-1> 

2940 V2»INT(3»RND(1>-1> 

2950 RETURN 

2960 FOR U*1 TO 12 

2970 IF H(U)>0 THEN 3800 

2980 NEXT U 

2990 REH**»»*»**»**»*****«*RANDON 

3000 U=0 

3010 R3=0 

3020 80SUB 2910 

3030 RESTORE 

3040 R2=0 

3050 R3=R3+1 

3060 IF R3>100 THEN 3010 

3070 IF X>10 THEN 3110 

3080 IF X>0 THEN 3120 

3090 X»HINT(RND(1)*2.5) 

3100 BOTO 3120 

3110 X=10-INT(RND(1)*2.5) 

3120 IF Y>10 THEN 3160 

3130 IF Y>0 THEN 3270 

3140 Y=1+INT<RND<1>*2.3> 

3150 60T0 3270 

3160 Y=10-INT(RND<1>»2.5> 

3170 BOTO 3270 

3180 F(U)«X 

3190 8(M)=Y 

3200 IF U=A THEN 3380 

3210 IF R2=6 THEN 3030 

3220 READ XI, Y1 

3230 R2=R2+1 

3240 DATA 1,1,-1,1,1,-3,1,1,0,2,-1,1 

3250 X=X+X1 

3260 Y=Y*Y1 

3270 IF X>10 THEN 3210 

3280 IF X<1 THEN 3210 

3290 IF Y>10 THEN 3210 

3300 IF Y<1 THEN 3210 

3310 IF B(X,Y)>10 THEN 3210 

3320 FOR 09*1 TO U 

3330 IF F(Q9K>X THEN 3350 

3340 IF B(09)=Y THEN 3210 

3350 NEXT 09 



3360 M=U+1 

3370 GOTO 3180 

3380 IF K»<>"YES" THEN 3420 

3390 FOR Z5-1 TO A 

3400 PRINT F(I5);0(Z5) 

3410 NEXT Z5 

3420 FOR U=1 TO A 

3430 IF B<F<U),B(U>)=3 THEN 3500 

3440 IF B<F(U),B(U>>=2 THEN 3520 

3450 IF B(F(U),B(U))=1 THEN 3560 

3460 IF B<F(U>,B<U>)*.5 THEN 3540 

3470 B(F(U),B(U))=10+C 

3480 NEXT U 

3490 BOTO 1950 

3500 PRINT "I HIT YOUR BATTLESHIP" 

3510 BOTO 3570 

3520 PRINT "I HIT YOUR CRUISER" 

3530 BOTO 3570 

3540 PRINT "I HIT YOUR DESTROYER<B>" 

3550 60T0 3570 

3560 PRINT "I HIT YOUR BESTROYER<A>" 

3570 FOR Q*1 TO 12 

3580 IF E(0)O-1 THEN 3730 

3590 E(0)»10+C 

3600 H(0)«B(F(U),0(U1) 

3610 H3*0 

3620 FOR M2=1 TO 12 

3630 IF H(H2)OH(Q) THEN 3650 

3640 H3=H3+1 

3650 NEXT N2 

3660 IF H3OINT(H(Q)t.5)t1tINT(INT(H(0) + .5)/3) THEN 3470 

3670 FOR H2«1 TO 12 

3680 IF H(H2)OH(0) THEN 3710 

3690 E(H2> — 1 

3700 H(H2) — 1 

3710 NEXT H2 

3720 BOTO 3470 

3730 NEXT Q 

3740 PRINT "PROBRAH ABORT:" 

3750 FOR 9=1 TO 12 

";o;"> =";E(0) 



;o;"> =";h<0) 



3760 PRINT "EC 

3770 PRINT "H(" 

3780 NEXT 

3790 STOP 

3800 REH«*****»*«*****»**«**««**USINOEARRAY 

3810 FOR R=1 TO 10 

3820 FOR S=1 TO 10 

3830 K(R,S>«0 

3840 NEXT S 

3850 NEXT R 

3860 FOR U=1 TO 12 

3870 IF EtUXIO THEN 4020 

3880 FOR R»1 TO 10 

3890 FOR S=1 TO 10 

3900 IF B(R,S)<10 THEN 3930 

3910 K(R,S)=-10000O0O 

3920 GOTO 4000 

3930 FOR H=S6N(1-R) TO SGNI10-R) 

3940 FOR N=SBN(1-S) TO SGN(IO-S) 

3950 IF N*H+N»H»0 THEN 3980 

3960 IF B(R+H,StN)OE(U) THEN 3980 

3970 K(R,S)=K(R,S)+E(U)-S»INT(H(U)+.5) 

3980 NEXT N 

3990 NEXT H 

4000 NEXT S 

4010 NEXT R 

4020 NEXT U 

4030 FOR R=1 TO A 

4040 F(R)=R 

4050 6(R)=R 

4060 NEXT R 

4070 FOR R=1 TO 10 

4080 FOR 5=1 TO 10 

4090 09=1 

4100 FOR H=1 TO A 

4110 IF K(F<H),G(H)»=K<F(Q9>,G<Q9>) THEN 4130 

4120 09=M 

4130 NEXT H 

4131 IF R>A THEN 4140 

4132 IF R*S THEN 4210 

4140 IF KIR, SXK(F(Q9), 0(09)) THEN 4210 

4150 FOR H=1 TO A 

4160 IF FMIOR THEN 4190 

4170 IF B(H)=S THEN 4210 

4180 NEXT H 

4190 F(09)=R 

4200 B(09)=S 

4210 NEXT S 

4220 NEXT R 

4230 BOTO 3380 

4240 END 
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Sine Wave 



Did you ever go to a computer show 
and see a bunch of CRT terminals just 
sitting there waiting forlornly for 
someone to give a demo on them. It 
was one of those moments whep I was 
at DEC that I decided there should be a 
little bit of background activity. And 
why not plot with words instead of the 
usual X's? Thus SINE WAVE was born 
and lives on in dozens of different 
versions. At least those CRTs don't 
look so lifeless anymore. 



10 PRINT TAB(30);"SINE UAVE" 

20 PRINT TAB(15>;"CREATIVE COMPUTING NORRISTOUN, NEU JERSEY" 

30 PRINT: PRINT: PRINT: PRINT: PRINT 

40 REMARKABLE PROGRAM BY DAVIB AHL 

50 B=0 

100 REM START LONG LOOP 

110 FOR T=0 TO 40 STEP .25 

120 A=INT(26+25*SIN(T)) 

130 PRINT TAB(A); 

HO IF B = 1 THEN 180 

150 PRINT "CREATIVE" 

HO B=1 

170 GOTO 200 

180 PRINT "COMPUTING" 

1?0 B=0 

200 NEXT T 

??? END 



SINE UAVE 
CREATIVE COMPUTING M0RRIST0UN, NEU JERSEY 



CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 
CREATIVE 



CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
C0HPUTING 
CREATIVE 
COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 

C0HPUTING 

CREATIVE 

COMPUTING 

CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
C0HPUTIN0 
CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
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CIaIaim 

Maiom 



This game simulates a slalom run 
down a course with from one to 25 
gates. The user picks the number of 
gates and has some control over his 
speed down the course. 

If you're not a skier, here's your 
golden opportunity to try it with 
minimal risk. If you are a skier, here's 
something to do while your leg is in a 
cast. 

SLALOM was written by J. Panek 
while a student at Dartmouth College. 



CONNAND--? RUN 

RATE YOURSELF AS A SKIER, (1-UORST, 3-BEST)? 1 

THE STARTER COUNTS D0UN...5...4...3...2. ..1...G0! 

YOU'RE OFF! 

HERE CODES SATE II 

9 H.P.H. 
OPTION? 2 

13 H.P.H. 



SLALOM 
CREATIVE COHPUTINO MORRISTOUN, NEU JERSEY 



HOU HANY GATES DOES THIS COURSE HAVE (1 TO 25)7 12 

TYPE "INS" FOR INSTRUCTIONS 
TYPE "MAX" FOR APPROXIMATE HAXIHUN SPEEDS 
TYPE "RUN" FOR THE BEGINNING OF THE RACE 
COHHAND--? INS 



,*»«SLAL0H! 



THIS IS THE 1974 UINTER OLYMPIC GIANT SLALOM. YOU ARE 
THE AMERICAN TEAM'S ONLY HOPE OF A 60L0 HEOAL. 



0--TYPE THIS IF YOU UANT TO SEE HOU LONG YOU'VE TAKEN 

I— TYPE THIS IF YOU UANT TO SPEED UP A LOT 

2— TYPE THIS IF YOU UANT TO SPEED UP A LITTLE 

3— TYPE THIS IF YOU UANT TO SPEED UP A TEENSY 

4--TYPE THIS IF YOU UANT TO KEEP DOING THE SAME SPEED 

5--TYPE THIS IF YOU UANT TO CHECK A TEENSY 

4— TYPE THIS IF YOU UANT TO CHECK A LITTLE 

7--TYPE THIS IF YOU UANT TO CHECK A LOT 

8--TYPE THIS IF YOU UANT TO CHEAT AND TRY TO SKIP A GATE 

THE PLACE TO USE THESE OPTIONS IS UHEN THE COMPUTER ASKS: 

OPTION? 





GOOD LUCK, 


COMMAND--? MAX 


GATE 


MAX 


1 1 


H.P.H. 


1 


14 


2 


10 


3 


24 


4 


29 


5 


18 


4 


25 


7 


28 


B 


32 


9 


29 


10 


20 


11 


29 


12 


29 



HERE CONES GATE 02 

13 H.P.H. 
OPTION? 1 

22 H.P.H. 

YOU TOOK OVER MAX. SPEED AND SNAGGED A FLAG! 

YOU TOOK 2.5774 SECONDS 

DO YOU UANT TO RACE AGAIN? YES 

THE STARTER COUNTS D0UN...5. ..4. ..3. ..2.. .1 .. .GO! 

YOU'RE OFF! 

HERE COMES 6ATE 111 

13 H.P.H. 
OPTION? 3 

14 M.P.H. 
CLOSE ONE! 

HERE CONES 6ATE 02 

14 H.P.H. 
OPTION? 2 

18 M.P.H. 
CLOSE ONE! 

HERE COHES GATE 13 

18 H.P.H. 
OPTION? 3 

20 H.P.H. 

HERE COMES GATE 114 

20 M.P.H. 
OPTION? 4 

20 H.P.H. 

HERE COMES GATE 05 

20 H.P.H. 
OPTION? 5 

18 H.P.H. 
CLOSE ONE! 

HERE COHES GATE 114 

18 H.P.H. 
OPTION? 1 

23 H.P.H. 

HERE COMES DATE M7 

23 M.P.H. 
OPTION? ! 

31 M.P.H. 
YOU TOOK OVER MAX. SPEED AND SNAGGED A FLAG! 
YOU TOOK 23.2587 SECONDS 
DO YOU UANT TO RACE AGAIN? NO 
THANKS FOR THE RACE 
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10 PRINT TAB (33); "SLALOM" 

20 PRINT TAB<15>;"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

30 PRINT: PRINT: PRINT 

310 PRINT "HOU MANY GATES DOES THIS COURSE HAVE (1 TO 25)": 

320 INPUT V 

330 IF V>25 THEN 340 

340 IF V<1 THEN 390 

350 GOTO M« 

360 PRINT "25 IS THE LIMIT" 

370 LET V=25 

380 GOTO 1440 

390 PRINT "TRY AGAIN," 

400 GOTO 310 

410 PRINT "RATE YOURSELF AS A SKIER, (1-UORST, 3-BESTP; 

420 INPUT A 

430 IF A<1 THEN 460 

440 IF A>3 THEN 460 

450 GOTO 480 

460 PRINT "THE BOUNDS ARE 1-3" 

470 60 TO4I0 

480 PRINT "THE STARTER COUNTS DOUN.. .5. ..4.. .3.. .2.. .1 .. .GO"" 

490 REM 

500 LET T=0 

510 LET S=INT(RNDd)»<18-9>+9> 

520 PRINT 

525 PRINT "YOU'RE OFF!" 

530 FOR 0=1 TO V 

540 READ 

550 PRINT 

555 PRINT "HERE COHES GATE »";STR«<0> 

560 PRINT S;"M.P.H." 

570 LET S1=S 

580 PRINT "OPTION"; 

590 INPUT 01 

600 IF 01=0 THEN 970 

610 IF 0I>8 THEN 1420 

620 IF OKI THEN 1420 

630 60SUB 990 

640 IF S<7 THEN 1390 

650 LET T=T+(0-S+1> 

660 IF S>0 THEN 1630 

670 NEXT 

680 PRINT "YOU TOOK"; (T+RND<1 >;"SECONDS" 

690 LET M=T 

700 LET M=M/V 

710 IF M<1.5-(A«0.1) THEN 1650 

720 IF H<2.9-(A«0.1) THEN 1680 

730 IF H<4.4-(A».0f> THEN 1710 

740 PRINT "DO YOU UANT TO RACE AGAIN"; 

750 INPUT B« 

760 REM 

770 IF B»="NO" THEN 1740 

780 IF B»="YES" THEN 480 

790 PRINT "PLEASE TYPE 'YES' OR 'NO'" 

800 GOTO 740 

810 STOP 

820 PRINT 

825 PRINT "**»SLALOH: THIS IS THE IV76 WINTER OLYMPIC GIANT SLALOH. 

830 PRINT " THE AMERICAN TEAM'S ONLY HOPE OF A GOLD MEDAL. 

840 PRINT 

845 PRINT 

850 PRINT 

860 PRINT 

870 PRINT 

880 PRINT 

890 PRINT 

900 PRINT 

910 PRINT 

920 PRINT 

930 PRINT 

935 PRINT 

940 PRINT 

945 PRINT "OPTION?" 

950 PRINT 

955 PRINT " 

957 PRINT 

760 60T0 1470 

970 PRINT "YOU'VE TAKEN"; (T+RND (1 ) )} "SECONDS" 

980 GOTO 580 

990 ON 01 GOTO 1130,1010,1170,1080,1190,1100,1150,1210 

1000 STOP 

1010 LET S=S+INT<RNDd>»(5-3>+3> 

1020 PRINT SJ"M.P.H." 

1030 IF S>0 THEN 1290 

1040 IF S>0-1 THEN 1060 



1050 RETURN 

1060 PRINT "CLOSE ONE!" 

1070 RETURN 

1080 PRINT S;"M.P.H." 

1090 GOTO 1030 

1100 LET S=S-INT(RND(1>*(5-3>+3> 

1110 PRINT S;"M.P.H." 

1120 GOTO 1030 

1130 LET S*S+INT(RNDd>»dO-5>*5> 

1140 GOTO 1080 

1150 LET S=S-INT<RHDd)»dO-5>+5> 

1160 GOTO 1110 

1170 LET S=S+INT<RND<1>*<4-1>+1) 

1180 60T0 1110 

1190 LET S"S-IHT(RND<1>»<4-1>+1> 

1200 GOTO 1110 

1210 PRINT "««»CHEAT" 

1220 IF RNDdX.7 THEN 1260 

1230 PRINT "YOU MADE IT!" 

1240 LET W+1.5 

1250 RETURN 

1260 PRINT "AN OFFICIAL CAUGHT YOU!" 

1270 PRINT "YOU TOOK"; (T+RNDd >);"SECONDS" 

1280 GOTO 740 

1290 IF RND(1X<(S-0>*0.U + .2 THEN 1320 

1300 PRINT "YOU TOOK OVER MAX. SPEED AND MADE IT!" 

1310 RETURN 

1320 PRINT "YOU TOOK OVER MAX. SPEED AND »; 

1330 IF RND<.5 THEN 1370 

1340 PRINT "WIPED OUT!" 

1350 PRINT "YOU TOOK" ; (T+RHDC 1 ) >;"SECONDS" 

1360 GOTO 740 

1370 PRINT "SNA8BED A FLAB!" 

1380 GOTO 1350 

1390 PRINT "LET'S BE REALISTIC, OK? LET'S GO BACK AND TRY AGAIN..." 

1400 LET S=S1 

1410 GOTO 550 

1420 PRINT "UHAT?" 

1430 GOTO 580 

1440 PRINT 

1445 PRINT "TYPE 

1450 PRINT "TYPE 

1460 PRINT "TYPE 

1470 PRINT "COHHAND 

1480 INPUT A* 

1490 REM 

1500 IF A«="INS" THEN 820 

1510 IF A*=»HAX" THEN 1550 

1520 IF AI="RUN" THEN 410 

1530 PRINT CHR*(34);A*;CHR«(34);" IS AN ILLEGAL COMMAND-RETRY" J 

1540 GOTO 1480 



;CHR»(34>;»INS";CHR«(34>;" FOR INSTRUCTIONS" 
;CHR»(34);"HAX";CHR»(34);" FOR APPROXIMATE MAXIMUM SPEEDS" 
;CHR*(34);»RUN";CHR*(34);" FOR THE BEGINNING OF THE RACE" 



1550 PRINT 
1560 PRINT " II 

1570 PRINT" 

1580 FOR BMTOV 
1590 READ Q 

YOU ARE" 



GATE MAX" 
II H.P.H." 



0--TYPE THIS IF YOU UANT TO SEE HOU LONG YOU'VE TAKEN" 
1— TYPE THIS IF YOU UANT TO SPEED UP A LOT" 
2--TYPE THIS IF YOU UANT TO SPEED UP A LITTLE'- 
S—TYPE THIS IF YOU UANT TO SPEED UP A TEENSY" 
4— TYPE THIS IF YOU UANT TO KEEP GOING THE SAME SPEED" 
5--TYPE THIS IF YOU UANT TO CHECK A TEENSY" 
6— TYPE THIS IF YOU UANT TO CHECK A LITTLE" 
7— TYPE THIS IF YOU UANT TO CHECK A LOT" 
8-TYPE THIS IF YOU UANT TO CHEAT AND TRY TO SKIP A GATE" 

THE PLACE TO USE THESE OPTIONS IS UHEN THE COHPUTER ASKS:" 



GOOD LUCK, 



1600 PRINT f," ";0 

1610 NEXT B 

1620 GOTO 1470 

1630 LET T=T+.5 

1640 GOTO 670 

1650 PRINT "YOU UON A GOLD MEDAL!" 

1660 LET Gd>=Gd> + 1 

1670 GOTO 1730 

1680 PRINT "YOU UON A SILVER MEDAL" 

1690 LET SO>»Sd> + 1 

1700 GOTO 1730 

1710 PRINT "YOU UON A BRONZE MEDAL" 

1720 LET B(1)=B(1>+1 

1730 GOTO 740 

1740 PRINT "THANKS FOR THE RACE" 

1750 IF 8(1X1 THEN 1770 

1760 PRINT "GOLD MEDALS:";G(1) 

1770 IF SO XI THEN 1790 

1780 PRINT "SILVER MEDALSi";S(l ) 

1790 IF BdXI THEN 1830 

1800 PRINT "BRONZE MEDALS:";B(1 ) 

1810 DATA 14,18,26,29,18,25,28,32,29,20,29,29,25,21,26,29,20,21,20 

1820 DATA 18,26,25,33,31,22 

1830 END 
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Slots 



The slot machine or one-arm bandit 
is a mechanical device that will absorb 
coins just about as fast as you can feed 
it. After inserting a coin, you pull a 
handle that sets three independent 
reels spinning. If the reels stop with 
certain symbols appearing in the pay 
line, you get a certain payoff. The 
original slot machine, called the Liber- 
ty Bell, was invented in 1895 by Charles 
Fey in San Francisco. Fey refused to 
sell or lease the manufacturing rights, 
so H.S. Mills in Chicago built a similar, 
but much improved, machine called 
the Operators Bell. This has survived 
nearly unchanged Jo-today. 

On the Operators Bell and other 
standard slot machines, there are 20 
symbols on each wheel but they are not 
distributed evenly among the objects 
(cherries, bar, apples, etc.). Of the 
8,000 possible combinations, the ex- 
pected payoff (to the player) is 7,049 or 
$89.11 for every $100.00-put in, one of 
the lowest expected payoffs of all 
casino games. 

In the program here, the payoff is 
considerably more liberal; indeed it 
appears to favor the player by 11% — 
i.e., an expected payoff of $1 1 1 for each 
$100 bet 

The program was originally written 
by Fred Mirabelle and Bob Harper. 



SLOTS 
CREATIVE COMPUTING H0RRIST0UN, NEU JERSEY 



YOU ARE IN THE HSH CASIN0.IN FRONT OF ONE OF OUR 

0NE-ARHED BANDITS. BET FROM 11 TO MOO. 

TO PULL THE ARM, PUNCH THE RETURN KEY AFTER HAKING YOUR BET. 

YOUR BETT S 



LEMON CHERRY BELL 

YOU LOST. 

YOUR STANDINGS ARE «-S 

AGAIN? Y 

YOUR BET? 5 



BAR CHERRY CHERRY 

DOUBLE ! I 

YOU UONI 

YOUR STANDINGS ARE « 10 

A6AIN? Y 

YOUR BET? 10 



LENON BAR BELL 

YOU LOST. 

YOUR STANDINGS ARE « 

AGAIN? Y 

YOUR BET? 25 



BELL BELL BAR 

DOUBLED 

YOU UONI 

YOUR STANDINGS ARE » 75 

AGAIN? N 

COLLECT YOUR UINNINGS FROH THE HJM CASHIER. 
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10 PRINT TAB U0>; "SLOTS" 

20 PRINT TAB(15>;"CREATIVE COMPUTING NORRISTOUN, NEU JERSEY" 

30 PRINT: PRINT: PRIHT 

100 REM PRODUCED BY FRED H1RABELLE AND BOB HARPER ON JAN. 29, 1973 

110 REN IT SIMULATES THE SLOT NACHINE. 

120 PRIHT "YOU ARE IN THE HIH CASINO, IN FRONT OF ONE OF OUR" 

130 PRIHT "OHE-ARHED BANDITS. BET FROH »1 TO $100." 

140 PRINT "TO PULL THE ARN, PUNCH THE RETURN KEY AFTER MAKING YOUR BET. 

ISO LET P-0 

160 PRINT: PRIHT "YOUR BET"; 

170 INPUT M 

180 IF N>100 THEN B40 

190 IF M<1 THEN B80 

200 H=INT(M) 

210 GOSUB 1270 

220 PRINT 

230 LET X»INT(6*RND<I>+1) 

240 LET T«INT(«»RND(1)+1) 

250 LET Z»INT<6*RND<t>+1) 

260 PRINT 

270 IF X«1 THEN VI 

280 IF X»2 THEN 930 

290 IF X-3 THEN 950 

300 IF X«4 THEN 970 

310 IF X-5 THEN 990 

320 IF X-6 THEN 1010 

330 IF Y»1 THEN 1030 

340 IF Y-2 THEN 1050 

350 IF Y-3 THEN 1070 

340 IF Y=4 THEN 1090 

370 IF Y»5 THEN 1110 

380 IF Y«6 THEN 1130 

390 IF Z»l THEN 1150 

400 IF Z=2 THEN 1170 

410 IF Z«3 THEN 1190 

420 IF Z-4 THEN 1210 

430 IF Z-5 THEN 1230 

440 IF Z«4 THEN 1250 

450 IF X*Y THEN 400 

440 IF X«Z THEN 630 

470 IF Y-Z THEN 450 

480 PRINT 

490 PRIHT "YOU LOST." 



PLEASE LEAVE YOUR MONEY ON THE TERHINAL. 



500 LET P-P-N 

510 PRINT "YOUR STANDINGS ARE «*P 

520 PRINT "AGAIN"; 

530 INPUT A* 

540 IF A»="Y" THEN 140 

550 PRINT 

540 IF P<0 THEN 470 

570 IF P=0 THEN 490 

580 IF P>0 THEN 710 

590 GOTO 1350 

400 IF Y-Z THEH 730 

410 IF Y»1 THEN 820 

420 GOTO 1341 

430 IF Z=t THEN 820 

440 GOTO 470 

450 IF Z-1 THEH 820 

440 GOTO 1341 

470 PRINT "PAY UP! 

480 80T0 1350 

490 PR1HT"HEY, YOU BROKE EVEN." 

700 GOTO 1350 

710 PRIHT "COLLECT YOUR WINNINGS FRON THE HIH CASHIER." 

720 GOTO 1350 

730 IF Z-1 THEN 780 

740 PRINT: PRINT "*«TOP DOLLAR**" 

750 PRINT "YOU HON!" 

740 P=<((10*M)*H)+P) 

770 GOTO 510 

780 PRINT: PRIHT "•♦♦JACKPOT***" 

790 PRINT "YOU UOH!" 

800 P»<<<IOO*N)+H)+P) 

810 GOTO 510 

820 PRINT: PRINT "*DOUBLE BAR*" 

830 PRINT"YOU HON!" 

840 P-<((5*N)+M)+P) 

850 80T0 510 

840 PRINT'HOUSE LIHITS ARE «100" 

870 GOTO 140 

880 PRINT"HININUH BET IS tl" 

890 GOTO 160 

900 GOTO 220 

910 PRINT 'BAR*;: GOSUB 1310 

920 GOTO 330 

930 PRINT "BELL";: GOSUB 1310 

940 GOTO 330 

950 PRINT "ORANGE*;: GOSUB 1310 

960 60T0 330 

970 PRINT "LEHON";: 80SUB 1310 

9B0 GOTO 330 

990 PRINT "PLUM";: GOSUB 1310 

1000 GOTO 330 

1010 PRINT "CHERRY";: GOSUB 1310 

1020 GOTO 330 

1030 PRINT * BAR*;: GOSUB 1310 

1040 GOTO 390 

1050 PRIHT " BELL*;: GOSUB 1310 

1060 GOTO 390 

1070 PRIHT " ORANGE*;: 60SUB 1310 

1080 60T0 390 

1090 PRIHT " LEHON*;: GOSUB 1310 

1100 GOTO 390 

1110 PRINT " PLUM";: GOSUB 1310 

1120 GOTO 390 

1130 PRIHT " CHERRY";: GOSUB 1310 

1140 GOTO 390 

1150 PRINT* BAR" 

1160 80T0 450 

1170 PRINT" BELL" 

1180 GOTO 450 

1190 PRINT" ORANGE" 

1200 GOTO 450 

1210 PRINT" LEMON" 

1220 GOTO 450 

1230 PRIHT" PLUM" 

1240 GOTO 450 

1250 PRINT" CHERRY" 

1240 GOTO 450 

1270 FOR 04«J TO 10 

1280 PRINT CHRi<7>; 

1290 HEXT 04 

1300 RETURN 

1310 FOR T8-1 TO 5 

1320 PRIHT CHRK7); 

1330 HEXT T8 

1340 RETURN 

1341 PRINT: PRINT "DOUBLE!!" 

1342 PRINT"YOU UON!" 

1343 P*U<2*N)+H)+P> 

1344 GOTO 510 
1350 STOP 
9999 END 
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Splat 



SPLAT simulates a parachute jump 
in which you try to open your 
parachute at the last possible moment 
without going splat! You may select 
your own terminal velocity or let the 
computer do it for you. You may also 
select the acceleration due to gravity 
or, again, let the computer do it in 
which case you might wind up on any 
one of eight planets (out to Neptune), 
the moon, or the sun. 

The computer then tells you the 
height you're jumping from and asks 
for the seconds of free fall. It then 
divides your free fall time into eight 
intervals and gives you progress 
reports on your way down. The com- 
puter also keeps track of all prior jumps 
in the array A and lets you know how 
you compared with previous success- 
ful jumps. If you wantto recall informa- 
tion from previous runs, then you 
should store array A in a disk or tape 
file and read it in before each run. 

John Yegge created this program 
while at the Oak Ridge Associated 
Universities. 



SPLAT 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



WELCOME TO 'SPLAT' — THE GAME THAT SIMULA FES A PARACHUTE 
JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE 
MOMENT yiTHOUT GOING SPLAT. 



SELECT YOUR OUN TERMINAL VELOCITY (YES OR NO)? NO 
OK. TERMINAL VELOCITY = 45 MI/HR 

WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? NO 
FINE. YOU'RE ON THE SUN. ACCELERATI0N=896FT/SEC/SEC 

ALTITUDE = 6680 FT 

TERM. VELOCITY = 66 FT/SEC +-57. 

ACCELERATION = 896 FT/SEC/SEC +-5Z 
SET THE TIMER FOR Y00R FREEFALL. 
HOU MANY SECONDS? 8 
HERE UE GO. 



TIME (SEC! DIST TO FALL (FT) 

8680 
ELOCITY REACHED AT T PLUS 
8616.08 
8549. 73 
8483.39 
8417.04 
8350.69 
8284.34 
8218 
8151.65 




TERMINAL V 



.0731599 SECONDS 



SELECT YOUR OUN TERMINAL VELOCITY (YES OR NO)? YES 
WHAT TERMINAL VELOCITY (MI/HR)? 200 

WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? YES 
WHAT ACCELERATION (FT/SEC/SEC)? 32 



ALTITUDE 
TERM. VELOCITY 
ACCELERATION 



SET THE TIMER FOR YOUR FREEFALL. 



1278 FT 

293.333 FT/SEC +-5X 

32 FT/SEC/SEC +-5% 



HOU MANY SECONDS? 
HERE UE GO. 



11 



DIST TO FALL (FT) 

1278 

1247.25 

1154.98 

1001.21 

785.934 

509.146 

170.851 



TIME (SEC) 



1.375 

2.75 

4.125 

5.5 

4.875 

8.25 
TERMINAL VELOCITY REACHED AT T PLUS 8.75938 SECONDS 

8.86435 SPLAT 
REQUIESCAT IN PACE. 
I'LL GIVE YOU ANOTHER CHANCE. 
DO YOU UANT TO PLAY AGAIN? YES 



SELECT YOUR OUN TERMINAL VELOCITY (YES OR NO)? YES 
WHAT TERMINAL VELOCITY (MI/HR)? 200 

UANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NQ>"' YES 
WHAT ACCELERATION (FT/SEC/SEO? 32 

ALTITUDE = 9440 FT 

TERM. VELOCITY = 293.333 FT/SEC +-52 

ACCELERATION = 32 FT/SEC/SEC +-5Z 
SET THE TIMER FOR YOUR FREEFALL. 
HOU MANY SECONDS? 7.5 
HERE UE GO. 



CHU 
AMAZ 
DO Y 



E OPEN 
ING! ! ! 
OU UAN 



NOT BAD FOR YOUR 1ST SUCCESSFUL JUMP! 
7 TO PLAY AGAIN? YES 



TIME (SEC) 


DIST TO FALL (FT) 





9440 


.9375 


9424.04 


1.875 


9384.17 


2.8125 


9314.39 


3.75 


9216.69 


4.6875 


9091.08 


5.625 


8937.56 


6.5625 


8756.12 


7.5 


8546.77 


CHUTE OPEN 




AMAZING!!! NOT 


BAD FOR YOUR 2ND SUCCESSFUL JUHP 1 


DO YOU UANT TO 


PLAY AGAIN? NO 


PLEASE? NOPE 




YES OR NO PLEASE? NO 


SSSSSSSSSS. 
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MORRISTOUN, NEW JERSEY" 



10 PRINT TAB(33>;"SPLAT" 

20 PRINT TAB(15);"CREATIVE COMPUTING 

40 PRINT:PRINT:PRINT 

50 DIM A(42) 

95 PRINT "WELCOME TO 'SPLAT' -- THE GAME THAI SIMULATES A PARACHUTE" 

96 PRINT "JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE" 
77 PRINT "MOMENT WITHOUT GOING SPLAT." 

118 PRINT :PRINT:D1=0:V=0:A=0:N=0:M=0:D1=INT(9001*RND<1>+1 000) 

119 PRINT " SELECT YOUR OWN TERMINAL VELOCITY (YES OR NO)";:INPUT Al$ 

120 IF A1*="N0" GOTO 128 

121 IF AHO"YES" THEN PRINT "YES OR NO";:INPUT A1*:G0T0 120 
123 PRINT "UHAT TERMINAL VELOCITY (MI/HR)"; :INPUT V1 

125 V1=V1*(5280/3600):V=V1t((V!*RND<1))/20>-<(V1»RND<1>)/20):G0T0 135 
128 U1=INT(1000*RND(1 )) 

130 PRINT "OK. TERMINAL VELOCITY ="V1"MI/HR" 

131 V1=V1*(5280/3600):V=V1+((V1*RND(1))/20)-((Y1*RND(1))/20) 

135 PRINT "UANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO!"; 

136 INPUT BIS 

140 IF BH="NO" THEN 150 

141 IF BHO"YES" THEN PRINT "YES OR NO";:INPUT B1»:G0T0 140 
143 PRINT "UHAT ACCELERATION (FT/SEC/SEC)"; :INPUT A2 

145 A=A2+((A2*RND(1>)/20)-((A2*RND<1>>/20):GOT0 205 

150 ON INK 1+<10*RND(1)))G0T0151,152,153,154,155,156, 157,158,159,160 

151 PRINT-FINE. YOU'RE ON MERCURY. ACCELERATIONS. 2FT/SEC/SEC":G0T0161 

152 PRINT"ALRIGHT. YOU'RE ON VENUS. ACCELERATI0N=28.3 FT/SEC/SEC":G0T0162 

153 PRINT "THEN YOU'RE ON EARTH. ACCELERATI0N=32.16 FT/SEC/SEC":GOTO 163 

154 PRINT"FINE. YOU'RE ON THE MOON. ACCELERATION'S. 15FT/SEC/SEC":6DT0 164 

155 PRINT"ALRIGHT. YOU'RE ON MARS. ACCELERATIONS. 5FT/SEC/SEC":G0T0 165 

156 PRINT"THEN YOU'RE ON JUPITER. ACCELERATI0N=85.2FT/SEC/SEC":GUTQ 166 

157 PRINT-FINE. YOU'RE ON SATURN. ACCELERATI0N=37.6FT/SEC/SEC":60T0 167 

158 PRINT"ALRIGHT. YOU'RE ON URANUS. ACCELERATI0N=33.8FT/SEC/SEC":G0TU 168 

159 PRINT"THEN YOU'RE ON NEPTUNE. ACCELERATI0N=39.6FT/SEC/SEC" :GQTO 169 

160 PRINTLINE. YOU'RE ON THE SUN. ACCELERATI0N=894F r/SEC/SEC" :6OT0 170 

161 A2=12.2:G0TO 145 

162 A2=28.3:G0TO 145 

163 A2=32.16:G0T0 145 

164 A2=5.15:G0T0 145 

165 A2=12.5:G0T0 145 

166 A2=B5.2:G0T0 145 

167 A2=37.6:G0T0 145 

168 A2=33.8 :6OT0 145 

169 A2=39.6:G0T0 145 

170 A2=896:G0TO 145 
205 PRINT 



ALTITUDE 

TERM. VELOCITY 

ACCELERATION 
"SET THE TIMER FOR YOUR FREEFALL 
"HOU MANY SECONDS";:INPUT T 
"HERE UE GO." 

"TIME (SEC)","DIST TO FALL (FT)" 



="D1"FT" 

="V1 "FT/SEC +-5%" 

="A2"FT/SEC/SEC +-52" 



206 PRINT 

207 PRINT 

208 PRINT 

210 PRINT 

211 PRINT 
215 PRINT 

217 PRINT 

218 PRINT 

219 PRINT 
300 FOR 1=0 TO T STEP (T/8) 
310 IF I>V/A GOTO 400 

320 D=D1-((A/2)*I'2) 

330 IF DOO GOTO 1000 

340 PRINT I,D 

350 NEXT I 

360 GOTO 500 

400 PRINT "TERMINAL VELOCITY REACHED AT T PLUS"V/A"SECONDS" 

405 FOR 1=1 TO T STEP (T/8) 

410 D=D1-((V'2/(2*A))t(V*(I-(V/A)))) 

420 IF D<=0 GOTO 1010 

430 PRINT I,D 

440 NEXT I 

500 PRINT "CHUTE OPEN" 

510 K=0:K1=0 

550 FOR J=0 TO 42 

555 IF A(J)=0 GOTO 620 

540 K=K + 1 

570 IF D>=A(J) GOTO 600 

580 KUK1+1 

600 NEXT J 

610 GOTO 540 

620 A(J)=D 

630 IF J>2 

635 PRINT 

636 IF J=0 

637 IF J=1 

638 IF J=2 

639 PRINT 




SUCCESSFUL" 
BET UITH IT! 



":GOTO 1950 



THEN 650 
"AMAZING! 
THEN PRINT "1ST " 
THEN PRINT "2KB " 
THEN PRINT "3RD " 
"SUCCESSFUL JUMP! ! 
650 IF K-K10.UK GOTO 700 
660 IF K-KIO.25*!! GUIO 710 
670 IF K-KK = .5*K GOTO 720 
680 IF K-KK=.?5*K GOTO 730 
690 IF K-KTO.9*!! GOTO 740 
695 GOTO 750 



NOr BAD FOR YOUR 



700 PRINT "WOU! THAT'S SOME JUMPING. OF THE"K"SUCCFSSFUL JUMPS" 

701 PRINT "BEFORE YOURS, ONLY"K-K 1 "OPENED THEIR CHUTES LOWER THAN" 

702 PRINT "YOU DID." 

703 GOTO 2000 

710 PRINT "PRETTY GOOD! " K"SUCCESSFUL JUMPS PRECEDED YOURS AND ONLY" 

711 PRINT K-K1" OF THEM GOT LOUER THAN YOU DID BEFORE [HEIR CHUTES" 

712 PRINT "OPENED." :GOTO 2000 

720 PRINT "NOT BAD. THERE HAVE BEEN"K"SUCCESSFUL JUMPS BEFORE YOURS. 

721 PRINT"YOU WERE BEATEN OUT BY"K-K1"0F THEM.":60T0 2000 

730 PRINT "CONSERVATIVE AREN'T YOU? YOU RANKED 0NLY"K-K1"IN THE" 

731 PRINT K"SUCCESSFUL JUMPS BEFORE YOURS. ":G0TO 2O0O 

740 PRINT "HUMPH! DON'T YOU HAVE ANY SPORTING BLOOD' THERE UERE" 

741 PRINT (("SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME IN"K1 "JUMPS" 

742 PRINT "BETTER THAN IHE WORST. SHAPE UP!!!":G0TO 2000 

750 PRINT "HEY! YOU PULLED THE RIP CORD MUCH TOO SOON. "V 

751 PRINT "JUMPS BEFORE YOURS AND YOU CAME IN NUMBER "K-K 1 " i 

752 GOTO 2000 

800 PRINT "REQUIESCAT IN PACE.":GOTO 1950 

801 PRINT "MAY THE ANGEL OF HEAVEN LEAD YOU INTO PARADISE" 

802 PRINT "REST IN PEACE":DOTO 1950 

803 PRINT "SON-OF-A-GUN":GOTO 1950 

804 PRINT "«S2Sn!$":G0T0 1950 

805 PRINT "A KICK IN IHE PANTS IS A BOOST IF YOU'RE HEADED RIGHT":G010 

806 PRINT "HMMM. SHOULD HAVE PICKED A SHORTER TIME.":GOTO 1950 

807 PRINT "MUTTER. MUTTER. MUTTER. " :GOTO 1950 

808 PRINT "PUSHING UP DAISIES. " :G0T01 950 

809 PRINT "EASY COME, EASY G0.":G0T0 1950 
1000 PRINT SQR(2*D1/A), "SPLAT" 

1005 ON INT(H(10*RNB(1)))G0T0 800,801,802,803,804,805,806,80? 808 809 

1010 PRINT (V/A)+((D1-(V 2/ ( 2*A ! ) )/V) , "SPLAT" 

1020 GOTO 1005 

1950 PRINT "ILL GIVE YOU ANOTHER CHANCE. " :GOT0 2000 

2000 PRINT "DO YOU WANT TO PLAY AGAIN" ;: INPUT U 

2001 IF Z«="YES" GOTO 118 

2002 IF Z5="N0" GOIO 2005 

2003 PRINT "YES OR NO":GOrO 2000 

2005 PRINT "PLEASE";:INPUT Z$:IF Z»="YES" THEN 118 

2006 IF Z!<J"NO" THEN PRINT "YES OR NO ";:UOfO 2005 

2007 PRINT "SSSSSSSSSS.":GOTO 2046 
2046 END 
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Stars 



In this game, the computer selects a 
random number from 1 to 100 (or any 
value you set in Statement 150). You try 
to guess the number and the computer 
gives you clues to tell you how close 
you're getting. One star (*) means 
you're faraway from the number; seven 
stars (*******) means you're really 
close. You get 7 guesses. 

On the surface this game is very 
similar to GUESS; however, the guess- 
ing strategy is quite different. See if you 
can come up with one or more ap- 
proaches to finding the mystery 
number. 

Bob Albrecht of People's Computer 
Company created this game. 



OK, I AH THINKING OF A NUHBER, START GUESSING. 



YOUR GUESS? 50 
»** 



YOUR GUESS? 75 



YOUR GUESS? 25 



YOUR GUESS? 35 



YOUR 6UESS? 30 
»»»»*♦♦ 



YOUR 0UESS? 31 

YOU GOT IT IN 6 6UESSESM! LET'S PLAY AGAIN... 



STARS 
CREATIVE COMPUTING H0RRIST0UN, NEU JERSEY 



DO YOU UANT INSTRUCTIONS? YES 
I AH THINKIN6 OF A WHOLE NUHBER FROH 1 TO 100 
TRY TO GUESS HY NUHBER. AFTER YOU GUESS, I 
UILL TYPE ONE OR HORE STARS (*). THE HORE 
STARS I TYPE, THE CLOSER YOU ARE TO HY NUHBER. 
ONE STAR (») HEANS FAR AUAY, SEVEN STARS (***»*♦*) 
HEANS REALLY CLOSE! YOU GET 7 GUESSES. 



OK, I AH THINKING OF A NUHBER, START GUESSING. 

YOUR GUESS? 50 
*** 

YOUR GUESS? 25 

»|ttttUM»«tlitlttH«»(«J»l»l»»l«Mtl»«Mt«t! I ! 

YOU GOT IT IN 2 GUESSES!!! LET'S PLAY AGAIN... 



OK, I AH THINKING OF A NUHBER, START GUESSING. 

YOUR BUESS? 50 

«»» 

YOUR GUESS? 75 



YOUR GUESS? 25 



YOUR GUESS? 15 



YOUR GUESS? 35 



YOUR BUESS? 38 

***** 



YOUR 6UESS? 33 



SORRY, THAT'S 7 GUESSES, NUHBER MAS 32 



10 PRINT TAB(34>;"STARS" 

20 PRINT TAB(15);"CREATIVE COHPUTING HORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

100 REH *** STARS - PEOPLE'S COHPUTER CENTER, HENLO PARK, CA 

HO REH ♦** A IS LIHIT ON NUHBER, H IS NUHBER OF GUESSES 

150 A=100:H=7 

170 INPUT "DO YOU UANT INSTRUCTIONS";A$ 

1?0 IF LEFT$(A$,1)="N" THEN 280 

200 REH *•» INSTRUCTIONS ON HOU TO PLAY 

210 PRINT "I AH THINKING OF A UHOLE NUHBER FROH 1 T0";A 

220 PRINT "TRY TO BUESS HY NUHBER. AFTER YOU GUESS, I" 

230 PRINT "UILL TYPE ONE OR HORE STARS (»). THE HORE" 

240 PRINT "STARS I TYPE, THE CLOSER YOU ARE TO HY NUHBER." 

250 PRINT "ONE STAR (») HEANS FAR AUAY, SEVEN STARS <**»***»>" 

260 PRINT "HEANS REALLY CLOSE! YOU GET";H;"GUESSES." 

270 REH »»* COHPUTER THINKS OF A NUHBER 

280 PRINT 

2?0 PRINT 

300 X*INT<A«RND(1>+1> 

310 PRINT "OK, I AN THINKING OF A NUHBER, START GUESSING." 

320 REH *»» GUESSING BEGINS, HUHAN GETS H GUESSES 

330 FOR K*1 TO H 

340 PRINT 

350 PRINT "YOUR GUESS"; 

360 INPUT G 

370 IF G=X THEN 600 

380 D=ABS(G-X> 

3?0 IF D>*64 THEN 510 

400 IF D>*32 THEN 500 

410 IF D>=16 THEN 4?0 

420 IF D>«8 THEN 480 

430 IF D>=4 THEN 470 

440 IF D>=2 THEN 460 

450 PRINT "»"; 

460 PRINT "*"! 

470 PRINT "«"; 

4B0 PRINT "«"; 

4V0 PRINT "*"; 

500 PRINT '•*"; 

510 PRINT "*"; 

520 PRINT 

530 NEXT K 

540 REH *** DID NOT GUESS IN H GUESSES 

550 PRINT 

560 PRINT "SORRY, THAT'S";HJ"GUESSES, HUHBER UAS":X 

580 GOTO 280 

5V0 REH *♦» UE HAVE A UINNER 

600 FOR N=1 TO 50 

610 PRINT "»"; 

620 NEXT N 

630 PRINT "!!!" 

640 PRINT "YOU GOT IT IN";K;"OUESSES! ! ! 

650 GOTO 280 

660 END 



LET'S PLAY AGAIN..." 
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Stock Market 



This program "plays" the stock 
market. You will be given $10,000 and 
may buy or sell stocks. Stock prices 
and trends are generated randomly; 
therefore, this model does not repre- 
sent exactly what happens on the 
exchange. (Depending upon your 
point of view, you may feel this is quite 
a good representation!) 

Every trading day, a table of stocks, 
their prices, and number of shares in 
your portfolio is printed. Following 
this, the initials of each stock are 
printed followed by a question mark. 
You indicate your transaction in 
number of shares — a positive number 
to buy, negative number to sell, or to 
do no trading. A brokerage fee of 1% is 
charged on all transactions (a 
bargain!). Note: Even if the value of a 
stock drops to zero, it may rebound 
again — then again, it may not. 

This program was created by D. 
Pessel, L. Braun, and C. Losik of the 
Huntington Computer Project at 
SUNY, Stony Brook, N.Y. 



STOCK 


INITIALS 


PRICE/SHARE 


INT. BALLISTIC HISSILES 


IBN 


VS. 25 


RED CROSS OF AHERICA 


RCA 


83.75 


LICHTENSTEIN, BUHRAP t JOKE 


LBJ 


M4.75 


AHERICAN BANKRUPT CO. 


ABC 


137 


CENSURED BOOKS STORE 


CBS 


103.5 



NEU YORK STOCK EXCHANGE AVERAGE: 113.45 

TOTAL STOCK ASSETS ARE I 
TOTAL CASH ASSETS ARE * 10000 
TOTAL ASSETS ARE * 10000 

UHAT IS YOUR TRANSACTION IN 

IBH? 10 

RCA? 20 

LBJ? 10 

ABC? 

CBS? 



********** END OF DAY'S TRADINB 



STOCK 

IBH 

RCA 

LBJ 

ABC 

CBS 



PRICE/SHARE 
¥4.25 

79.5 
142.25 
13?. 75 
¥8.5 



HOLDINGS 
10 
20 
10 





VALUE 
942.5 
1590 

1422.5 







NET PRICE CHANCE 
-4 

-4.25 
-2.5 
2.75 

-5 



NEU YORK STOCK EXCHANGE AVERAGE: 110. 05 NET CHANGE: -2.6 



TOTAL STOCK ASSETS ARE » 3955 
TOTAL CASH ASSETS ARE I 5853.95 
TOTAL ASSETS ARE $ 9808.95 



STOCK MARKET 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 



DO YOU UANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)7 1 



DO YOU UISH TO CONTINUE (YES-TYPE 

UHAT IS YOUR TRANSACTION IN 

IBH? -10 

RCA? -5 

LBJ? -10 

ABC? 

CBS? 



NO-TYPE 0)7 1 



THIS PROGRAN PLAYS THE STOCK HARKET. YOU UILL BE GIVEN 
»10,000 AND HAY BUY OR SELL STOCKS. THE STOCK PRICES UILL 
BE GENERATED RAND0NLY AND THEREFORE THIS H0DEL DOES NOT 
REPRESENT EXACTLY UHAT HAPPENS ON THE EXCHANGE. A TABLE 
OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUHBER OF SHARES 
IN YOUR PORTFOLIO UILL BE PRINTED. F0LL0UING THIS, THE 
INITIALS OF EACH STOCK UILL BE PRINTED UITH A OUESTI0N 
NARK. HERE YOU INDICATE A TRANSACTION. TO BUY A STOCK 
TYPE *NNN, TO SELL A STOCK TYPE -NNN, UHERE NNN IS THE 
NUHBER OF SHARES. A BROKERAGE FEE OF 1Z UILL BE CHARGED 
ON ALL TRANSACTIONS. NOTE THAT IF A STOCK'S VALUE DROPS 
TO ZERO IT HAY REBOUND TO A POSITIVE VALUE AGAIN. YOU 
HAVE 110,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS. 
(NOTE: TO GET A 'FEEL' FOR THE HARKET RUN FOR AT LEAST 
10 DAYS) 
GOOD LUCK! 



********** END OF DAY'S TRADING 



STOCK 

IBH 

RCA 

LBJ 

ABC 

CBS 



PRICE/SHARE 
82.75 
67.75 
125.75 
121.25 
84.75 



HOLDINGS 
20 
10 
10 
10 




NEU YORK STOCK EXCHANGE AVERAGE: 96.45 

TOTAL STOCK ASSETS ARE ♦ 4802.5 

TOTAL CASH ASSETS ARE » 3987.74 

TOTAL ASSETS ARE » 8790.24 



VALUE 
1655 
677.5 
1257.5 
1212.5 




NET PRICE CHANGE 
-1.75 

-2.25 
-6.5 
-7 
-4.5 



NET CHANGE: -4.4 
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10 PRINT TABOO); "STOCK MARKET" 

20 PRINT TftB<15>;"CREATlUE COMPUTING MORRISTOUN, NEU JERSEY" 

30 PRINT: PRINT: PRINT 

100 REH STOCK HARKET SIHULATION -STOCK- 

101 REH REVISED 8/18/70 <D. PESSEL, L. BRAUN, C. LOSIK) 

102 REH IHP VRDLS: A-HRKT TRND SLP; B5-BRKRGE FEE; C-TTL CSH ASSTS; 

103 REH C5-TTL CSH ASSTS (TEHP); Cdl-CHNG IN STK UAL; D-TTL ASSTS; 

104 REH E1.E2-LRB CHN6 HISC; I-STCK «; 11,12-STCKS U LRG CHNO; 

105 REH N1,N2-LRQ CHNG DAY CNTS; P5-TTL DAYS PRCHSS; PU)-PRTFL CNTNTS; 

106 REH Q9-NEU CYCLT; S4-SGN OF A; S3-TTL DYS SIS; S(1 1-VALUE/SHR; 

107 REH T-TTL STCK ASSTS; T5-TTL VAL OF TRNSCTNS; 

108 REH U3-LRG CHNO; X1-SHLL CHNG(<*1); Z4,Z5,Z6-NYSE AVE.; Zdl-TRNSCT 
110 DIH S(5),P(5),Z<5),C(5) 

112 REH SLOPE OF HARKET TREND:A (SAHE FOR ALL STOCKS) 

113 LET X=1 

114 LET A=INT<(RND<X>/10>*100+.5>/100 

115 LET T5=0 
114 LET X9=0 

117 LET N1»0 

118 LET M2=0 

119 LET E1=0 

120 LET E2=0 

121 REH INTRODUCTION 

122 PRINT "DO YOU UANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)"J 

123 INPUT Z9 

124 PRINT 

125 PRINT 

126 IF Z9<1 THEN 200 

130 PRINT "THIS PROBRAH PLAYS THE STOCK HARKET. YOU UILL BE GIVEN" 
132 PRINT "$10,000 AND HAY BUY OR SELL STOCKS. THE STOCK PRICES UILL" 

134 PRINT "BE GENERATED RANDOHLY AND THEREFORE THIS HODEL DOES NOT" 

135 PRINT "REPRESENT EXACTLY UHAT HAPPENS ON THE EXCHANGE. A TABLE" 

136 PRINT "OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUHBER OF SHARES 

137 PRINT "IN YOUR PORTFOLIO UILL BE PRINTED. FOLLOUIHO THIS, THE" 

138 PRINT "INITIALS OF EACH STOCK UILL BE PRINTED UITH A QUESTION" 
13V PRINT "HARK. HERE YOU INDICATE A TRANSACTION. TO BUY A STOCK" 

140 PRINT "TYPE tNNN, TO SELL A STOCK TYPE -NNN, UHERE NNN IS THE" 

141 PRINT "NUHBER OF SHARES. A BROKERAGE FEE OF II UILL BE CHARGED" 

142 PRINT "ON ALL TRANSACTIONS. NOTE THAT IF A STOCK'S VALUE DROPS" 

143 PRINT "TO ZERO IT HAY REBOUND TO A POSITIVE VALUE AGAIN. YOU" 

144 PRINT "HAVE »I0,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS." 

145 PRINT "(NOTE: TO SET A 'FEEL' FOR THE HARKET RUN FOR AT LEAST" 

146 PRINT "10 DAYS)" 

147 PRINT " GOOD LUCK! " 

200 REH GENERATION OF STOCK TABLE; INPUT REQUESTS 

210 REH INITIAL STOCK VALUES 

220 LET S(1)«I00 

230 LET S(2)=85 

240 LET S(3)=150 

250 LET S(4>=140 

260 LET S(3)=110 

265 REH INITIAL T8 - II DAYS FOR FIRST TREND SLOPE (A) 

266 LET T8=INT(4.99*RND(X)+1> 

267 REH RANDOHIZE SIGN OF FIRST TREND SLOPE (A) 

268 IF RND(X)>.5 THEN 270 
26V LET A=-A 

270 REH RANDOHIZE INITIAL VALUES 

280 GOSUB 830 

285 REH INITIAL PORTFOLIO CONTENTS 

290 FOR 1=1 TO 5 

300 LET P(I)=0 

305 LET Z(I)=0 

310 NEXT I 

320 PRINT 

330 PRINT 

333 REH INITIALIZE CASH ASSETS:C 

335 LET C=10000 

338 REH PRINT INITIAL PORTFOLIO 

340 PRINT "STOCK"," "."INITIALS", "PRICE/SHARE" 

350 PRINT "INT. BALLISTIC MISSILES"," IBH",S(1) 

352 PRINT "RED CROSS OF AMERICA"," RCA",S(2) 

354 PRINT "LICHTENSTEIN, BUHRAP J JOKE"," LBJ",S(3) 

356 PRINT "AHERICAN BANKRUPT CO."," ABC",S(4) 

358 PRINT "CENSURED BOOKS STORE"," CBS\S<5> 

360 PRINT 

361 REH NYSE AVERAGE:Z5; TEHP. VALUE:Z4; NET CHANGE:Z4 

363 LET Z4-Z5 

364 LET Z5=0 

365 LET T=0 

370 FOR 1 = 1 TO 5 
375 LET Z5=Z5+S(I) 
380 LET T»TtS(I)*P(I) 

390 NEXT I 

391 LET Z5=INT(100*<Z5/5H. 51/100 

392 LET Z4=INT((Z5-Z4)*1O0+. 51/100 

393 REH TOTAL ASSETS:D 

394 LET D=T+C 

395 IF X9>0 THEN 398 

396 PRINT "NEU YORK STOCK EXCHANGE AVERAGE: "Z5 

397 GOTO 399 

398 PRINT "NEU YORK STOCK EXCHANGE AVERAGE: "Z5" NET CHANGE: "Z4 



399 PRINT 

400 LET T=INT(100*T+.5)/100 

401 PRINT "TOTAL STOCK ASSETS ARE »";T 
403 LET C=INT(100»C+. 51/100 

405 PRINT "TOTAL CASH ASSETS ARE »";C 

407 LET D=INT(100»D+. 51/100 

408 PRINT "TOTAL ASSETS ARE »";D 

410 PRINT 

411 IF X9=0 THEN 416 

412 PRINT "DO YOU UISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)"; 

413 INPUT 09 

414 IF 09<1 THEN 998 

416 REH INPUT TRANSACTIONS 

420 PRINT "UHAT IS YOUR TRANSACTION IN" 

430 PRINT "IBM"; 

440 INPUT Z(1) 

450 PRINT "RCA"; 

460 INPUT Z(2) 

470 PRINT "LBJ"; 

480 INPUT Z(3) 

490 PRINT "ABC"; 

500 INPUT Z(4) 

510 PRINT "CBS"; 

520 INPUT Z(5) 

525 PRINT 

530 REM TOTAL DAY'S PURCHASES IN »:P5 

540 LET P5=0 

550 REM TOTAL DAY'S SALES IN »iSS 

560 LET S5=0 

570 FOR 1=1 TO 5 

575 LET Z(I)«INT(Z(I)+.5) 

580 IF Z(IX=0 THEN 410 

590 LET P5=P5tZ(I)*S(I) 

600 GOTO 620 

610 LET S5=S5-Z(I)*S(I) 

612 IF -Z(IX=P(I) THEN 420 

414 PRINT "YOU HAVE OVERSOLD A STOCK; TRY AGAIN." 

414 GOTO 420 

420 NEXT I 

422 REH TOTAL VALUE OF TRANSACTI0NS:T5 

425 LET T3=P5*S5 

430 REH DROKERAGE FEE:B5 

440 LET 85=INT(.01*T5*10O+. 51/100 

450 REM CASH ASSETS=OLD CASH ASSETS-TOTAL PURCHASES 

452 REH -BROKERAGE FEES+TOTAL SALES:C3 

454 LET C5=C-P5-B5*S5 

454 IF C5>=0 THEN 474 

458 PRINT "YOU HAVE USED »"-C5" MORE THAN YOU HAVE." 

460 GOTO 420 

674 LET C=C5 

475 REH CALCULATE NEU PORTFOLIO 

480 FOR 1 = 1 TO 5 

490 LET P(I)=P(I)+Z(I) 

700 NEXT I 

710 REH CALCULATE NEU STOCK VALUES 

720 GOSUB 830 

750 REH PRINT PORTFOLIO 

751 REH BELL RINGING-DIFFERENT ON HANY COMPUTERS 

752 FOR 1=1 TO 20 

753 PRINT CHRM135); 

754 NEXT I 

755 PRINT 

754 PRINT »**»***»**» END OF DAY'S TRADINO" 

737 PRINT 

738 PRINT 

759 IF X9<1 THEN 749 

749 PRINT "STOCK", "PRICE/SHARE", "HOLDINGS", "VALUE", "NET PRICE CHANGE" 

770 PRINT "IBM", S(1), P(1), S(1)»P(1), C(1) 

771 PRINT "RCA", S(2), P(2), S(2)»P(2), C(2) 

772 PRINT "LBJ", S(3), P(3), S(3)*P(3), C(3) 

773 PRINT "ABC", S(4), P(4), S(4)«P(4), C(4) 

774 PRINT "CBS", S(5), P(3), S(5)»P(5), C(5) 

775 LET X9=1 
780 PRINT 
790 PRINT 
810 GOTO 360 

829 REH NEU STOCK VALUES - SUBROUTINE 

830 REM RANDOMLY PRODUCE NEU STOCK VALUES BASED ON PREVIOUS 

831 REM DAY'S VALUES 

832 REM N1.N2 ARE RANDOM NUMBERS OF DAYS UHICH RESPECTIVELY 

833 REH DETERMINE UHEN STOCK II UILL INCREASE 10 PTS. AND STOCK 

834 REH 12 UILL DECREASE 10 PTS. 

840 REH IF N1 DAYS HAVE PASSED, PICK AN II, SET E1, DETERMINE NEU N1 

841 IF N1>0 THEN 850 

845 LET I1=INT<4.99»RNB(X>+1) 
844 LET Nl=INT(4.99«RND(X)t1) 
847 LET E1=1 

850 REH IF N2 DAYS HAVE PASSED, PICK AN 12, SET E2, DETERMINE NEU N2 

851 IF N2>0 THEN 840 

855 LET I2=INT(4.99»RND(X)*1) 
854 LET N2=INT(4.99*RND(X)tl) 
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85? LET E2»1 

840 REH DEDUCT ONE DAY FROH N1 AND N2 

841 LET NI=N1-1 

842 LET N2=N2-l 

890 REH LOOP THROUGH ALL STOCKS 

900 FOR 1=1 TO 5 

910 LET X1»RND(X) 

915 IF X1>.25 THEN 920 

914 LET XI*. 25 

91? OOTO 935 

920 IF XD.50 THEN 925 

921 LET X1-.50 

922 GOTO 935 

925 IF X1>.75 THEN 930 
924 LET X1«.?5 
927 GOTO 935 

930 LET X1-0.0 

931 REH BIG CHANGE C0NSTANT:U3 (SET TO ZERO INITIALLY) 
935 LET U3=0 

934 IF EK1 THEN 945 

937 IF INT(IH.5)OINT(I + .5) THEN 945 

938 REH ADD 10 PTS. TO THIS STOCK; RESET El 

939 LET U3-10 
943 LET £1=0 

945 IF E2<1 THEN 955 

947 IF INTU2+.5K>INTU+.5> THEN 955 

948 REH SUBTRACT 10 PTS. FROH THIS STOCK; RESET E2 



949 LET U3=U3-10 

953 LET E2«0 

954 REH C(I) IS CHAN6E IN STOCK VALUE 

955 LET C(I)-=INT(A*S(I))+X1 + INT(3-4*RND(X) + .3)+U3 
954 LET C<I)*INTUOO»C<I)t. 51/100 

957 LET S(I)=S<IHC(I) 
940 IF S(I)>0 THEN 947 

944 LET CU)"0 

945 LET SlD-0 
944 GOTO 970 

947 LET S(I)=INT(100*S(I)+.5)/100 
970 NEXT I 

972 REH AFTER T8 DAYS RANDQHLY CHANGE TREND SIGN AND SLOPE 

973 LET TB=T8-1 

974 IF T8<1 THEN 985 
980 RETURN 

985 REH RANDOHLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION 

984 REH OF TREND (T8) 

990 LET T8=INT(4.99*RND(X)t1) 

992 LET A=INT((RND(X)/10)»100+.5)/100 

993 LET S4=RND(X) 

994 IF S4<=.5 THEN 997 

995 LET A=-A 

997 RETURN 

998 PRINT "HOPE YOU HAD FUN II" 

999 END 




<s €s&jl _ 
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Super Star Trek 



Brief History 



Many versions of Star Trek have been kicking around 
various college campuses since the late sixties. I recall 
playing one at Carnegie-Mellon Univ. in 1967 or 68, and a 
very different one at Berkeley. However, these were a far 
cry from the one written by Mike Mayfield of Centerline 
Engineering and/or Custom Data. This was written for an 
HP2000C and completed in October 1972. It became the 
"standard" Star Trek in February 1973 when it was put in 
the HP contributed program library and onto a number of 
HP Data Center machines. 

In the summer of 1973, I converted the HPversion-to 
BASIC-PLUS for DEC's RSTS-1 1 compiler and added a few 
bits and pieces while I was at it. Mary Cole at DEC 
contributed enormously to this task too. Later that year I 
published it under the name SPACWR (Space War — in 
retrospect, an incorrect name) in my book 101 Basic 
Computer Games. It is difficult today to find an interactive 
computer installation that does not have one of these 
versions of Star Trek available. 



Quadrant Nomenclature 



Recently, certain critics have professed confusion as to 
the origin of the "quadrant" nomenclature used on all 
standard CG (Cartesian Galactic) maps. Naturally, for 
anyone with the remotest knowledge of history, no 
explanation is necessary; however, the following synopsis 
should suffice for the critics: 

As every schoolboy knows, most of the intelligent 
civilizations in the Milky Way had originated galactic 
designations of their own choosing well before the Third 
Magellanic Conference/ at which the so-called "2 6 Agree- 
ment" was reached. In that historic document, the partici- 
pant cultures agreed, in all two-dimensional representations 
of the galaxy, to specify 64 major subdivisions, ordered as 
an 8 x 8 matrix. This was partially in deference to the Earth 
culture (which had done much in the initial organization of 
the Federation), whose century-old galactic maps had 
always shown 16 major regions named after celestial 
landmarks of the Earth sky. Each of these regions was 
divided into four "quadrants," designated by ancient 
"Roman Numerals" (the origin of which has been lost). 

To this day, the official logs of starships originating on 
near-Earth starbases still refer to the major galactic areas as 
"quadrants." 

The relation between the Historical and Standard 
nomenclatures is shown in the simplified CG map below. 



^Designates trademark of Paramount Pictures Corpora- 
tion. Used by permission of Paramount Pictures Corpo- 
ration. 




ANTARES 
I II III 


IV 


SIRIUS 
I II III 


IV 


RIGEL 
I II III 


IV 


DENEB 
I II III 


IV 


PROCYON 
I II III 


IV 


CAPELLA 
I II III 


IV 


VEGA 
I II III 


IV 


BETELGEUSE 
I II III 


IV 


CANOPUS 
I II III 


IV 


ALDEBARAN 
I II III 


IV 


ALTAI R 
I II III 


IV 


REGULUS 
I II III 


I 


SAGITTARIUS 
I II III IV 


ARCTURUS 
I II III 


IV 


POLLUX 
I II III 


IV 


SPICA 
I II III 


IV 
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Super Star Trek'Rules and Notes 

by Robert Leedom and David Ahl 



1. OBJECTIVE: You are Captain of the starship "Enter- 
prise"! with a mission to seek and destroy a fleet of Klin- 
gont warships (usually about 17) which are menacing the 
United Federation of Planets. t You have a specified 
number of stardates in which to complete your mission. 
You also have two or three Federation Starbasest for re- 
supplying your ship. 

2. You will be assigned a starting position somewhere in 
the galaxy. The galaxy is divided into an 8 x 8 quadrant 
grid. The astronomical name of a quadrant is called out 
upon entry into a new region. (See "Quadrant Nomencla- 
ture.") Each quadrant is further divided into an 8 x 8 sec- 
tion grid. 

3. On a section diagram, the following symbols are used: 



Enterprise 
Klingon 



> ! < Starbase 
Star 



4. You have eight commands available to you. (A detailed 
description of each command is given in the program in- 
structions.) 

NAV Navigate the Starship by setting course and 

warp engine speed. 
SRS Short-range sensor scan (one quadrant) 
LRS Long-range sensor scan (9 quadrants) 
PHA Phaseri control (energy gun) 
TOR Photon torpedo control 
SHE Shield control (protects against phaser fire) 
DAM Damage and state-of-repair report 
COM Call library computer 

5. Library computer options are as follows (more com- 
plete descriptions are in program instructions): 

Cumulative galactic record 

1 Status report 

2 Photon torpedo course data 

3 Starbase navigation data 

4 Direction/distance calculator 

5 Quadrant nomenclature map 

6. Certain reports on the ship's status are made by officers 
of the Enterprise who appeared on the original TV Show 
— Spock,i Scott,! Uhura,i Chekov,i etc. 



9. Your engines will automatically shut down if you should 
attempt to leave the galaxy, or if you should try to maneu- 
ver through a star, a Starbase, or — heaven help you — a 
Klingon warship. 

10. In a pinch, or if you should miscalculate slightly, some 
shield control energy will be automatically diverted to 
warp engine control (if your shields are operational!). 

11. While you're docked at a Starbase, a team of tech ii- 
cians can repair your ship (if you're willing for them to 
spend the time required — and the repairmen always un- 
derestimate...). 

12. If, to save maneuvering time toward the end of the 
game, you should cold-bloodedly destroy a Starbase, you 
get a nasty note from Starfleet Command. If you destroy 
your last Starbase, you lose the game! (For those who 
think this is too harsh a penalty, delete lines 5360-5390, 
and you'll just get a "you dumdum!"-type message on all 
future status reports.) 

13. End game logic has been "cleaned up" in several 
spots, and it is possible to get a new command after suc- 
cessfully completing your mission (or, after resigning 
your old one). 

14. For those of you with certain types of CRT/keyboards 
setups (e.g. Westinghouse 1600), a "bell" character is in- 
serted at appropriate spots to cause the following items to 
flash on and off on the screen: 

• The Phrase "*RED*" (as in Condition: Red) 

• The character representing your present quadrant in 
the cumulative galactic record printout. 

15. This version of Star Trek was created for a Data Gen- 
eral Nova 800 system with 32K or core. So that it would fit, 
the instructions are separated from the main program via 
a CHAIN. For conversion to DEC BASIC-PLUS, Statement 
160 (Randomize) should be moved after the return from 
the chained instructions, say to Statement 245. For Altair 
BASIC, Randomize and the chain instructions should be 
eliminated. 



7. Klingons are non-stationary within their quadrants. If 
you fry to maneuver on them, they will move and fire on 
you. 

8. Firing and damage notes: 



A. Phaser fire diminishes with increased distance be- 
tween combatants. 

B. If a Klingon zaps you hard enough (relative toyour 
shield strength) he will generally cause damage to 
some part of your ship with an appropriate "Dam- 
age Control" report resulting. 

C. If you don't zap a Klingon hard enough (relative to 
his shield strength) you won't damage him at all. 
Your sensors will tell the story. 

D. Damage control will let you know when out-of- 
commission devices have been completely re- 
paired. 



■ Designates trademark of Paramount Pictures Corpora- 
tion. Used by permission of Paramount Pictures Corpo- 
ration. 
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Program Listing - Instructions 

10 HEM INSTRUCTIONS FOR "SUPER STARTREC" MAR 5- 19 78 

20 FOP. 1=1 TO 12:PRINT:NEXT I 

21 PRINT TABC IB); "*************************************" 

22 PRINT TABC 10);"* *" 

23 PRINT TABC 10);"* *" 

30 PRINT TABC IB);"* * * SUPER STAR TREK * * *" 

31 PRINT TABC 10);"* *" 

32 PRINT TABC 10);"* *" 

35 PRINT TABC 10) ; "*************************************" 

36 FOR 1=1 TO 8:PRINT:NEXT I 

40 INPUT "DO YOU NEED INSTRUCTIONS CY/N)";KI:IF KS="N" THEN 200S 

44 PRINT 

45 PRINT "TURN THE TTY ON-LINE AND HIT ANY KEY EXCEPT RETURN" . 

46 IF INPC1>=13 THEN 46 

50 POKE 1229. 2: POKE 1237. 3: NULL 1 

90 PRINT" INSTRUCTIONS FOR 'SUPER STAR TREK'" 

100 PRINT 

110 PRINT"1. WHEN YOU SEE \ COMMAND ?\ PRINTED. ENTER ONE OF THE LEGAL" 

120 PRINT" COMMANDS CNAV.SRS.LRS.PHA.TOR.SHE.DAH.COM. OR XXX)." 

130 PRINT"2. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND. YOU'LL GET A SH OR 

T" 

140 PRINT" LIST OF THE LEGAL COMMANDS PRINTED OUT." 

150 PHIMT"3. SOME COMMANDS REQUIRE YOU TO ENTER DATA C FOR EXAMPLE. THE" 



160 PRINT" 

170 PRINT" 
D" 

18 PRINT" 

19 PRINT 
270 PRINT" 



'NAV COMMAND COMES BACK WITH 'COURSE Cl-9) ) 
TYPE IN ILLEGAL. DATA CUKE NEGATIVE NUMBERS). 



WILL BE ABORTED" 



1 .) IF YOU" 
THAT COMMAN 



THE GALAXY IS DIVIDED INTO AN B X 8 QUADRANT GRID. 



290 
300 
310 
320 
330 
340 
360 
370 
IN" 
3B0 

38 5 

39 
400 
410 
420 
430 
440 
450 
460 
470 
480 
49 
500 
510 
520 
530 
540 
550 
555 
560 
570 
580 
590 



PRINT 

PRINT" YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE" 

PRINT"GALAXY TO BEGIN A TOUR OF DUTY AS COMMANDER OF THE STARSHIP" 

PRINT"\ENTERPniSE\; YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF" 

PRIHT"KL1NG0N WARWHIPS WHICH ARE MENACING THE UNITED FEDERATION OF" 

PRINT"PLANETS." 

PRINT 

PRINT" YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS CAPTA 



PRINT' ! 

PRINT 

PRINT" 

PRINT' 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT' 

PRINT 

PRINT' 

PRINT" 

PRINT 

PRINT" 

PRINT' 

PRINT 

PRINT' 



OF THE STARSHIP ENTERPRI SE: " 

\NAV\ COMMAND = WARP ENGINE CONTROL — " 
COURSE IS IN A CIRCULAR NUMERICAL 
VECTOR ARRANGEMENT AS SHOWN 
INTEGER AND REAL VALUES HAY BE 
USED. CTHUS COURSE 1.5 15 HALF- 
WAY BETWEEN 1 AND 2 



5 * 1" 



VALUES HAY APPROACH 9 
ITSELF IS EQUIVALENT 



TO 



WHICH 
1.0" 



ONE WARP FACTOR IS THE SIZE OF " 
ONE QUADTANT. THEREFORE. TO GET" 
FROM QUADRANT 6.5 TO 5.5. YOU WOULD" 
USE COURSE 3. WARP FACTOR I." 

'\SRS\ COMMAND = SHORT RANGE SENSOR SCAN" 

SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT." 

SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS:" 
<*> = YOUR STARSHIP'S POSITION" 
+ K+ = KLINGON BATTLE CRUISER" 
>!< = FEDERATION STARBASE C REFUEL /REPAI R/RE-ARM HERE!) 



600 PRINT" , * = STAR" 

60 5 PRINT 

610 PRINT" A CONDENSED 'STATUS REPORT' WILL ALSO BE PRESENTED." 

620 PRINT 

640 PRINT"\LRS\ COMMAND = LONG RANGE SENSOR SCAN" 

650 PRINT" SHOWS CONDITIONS IN SPACE FOE ONE QUADRANT ON EACH SIDE" 

660 PRINT" OF THE ENTERPRISE CWHICH IS IN THE MIDDLE OF THE SCAN)" 

670 PRINT" THE SCAN IS CODED IN THE FORM \Ht\, WHERE TH UNITS DIGIT 

IS THE NUMBER OF STARS. THE TENS DIGIT IS THE NUMBER OF" 
STARBASES. AND THE HUHDRESDS DIGIT IS THE NUMBER OF" 
KLINGONS." 



680 


PRINT" 


69 


PRINT" 


700 


PRINT" 


705 


PRINT 


706 


PRINT" 


710 


PRINT 


720 


PRINT" 


730 


PRINT" 


740 


PRINT" 


750 


PRINT" 


760 


PRINT" 


770 


PRINT 


78 


PRINT" 


79 


PRINT" 


800 


PRINT" 


810 


PRINT" 


820 


PRINT" 


825 


PRINT" 


830 


PRINT 


835 


PRINT" 


840 


PRINT" 


850 


PRINT 


860 


PRINT" 


870 


PRINT" 


88 


PRINT" 


89 


PRINT" 


GY" 




900 


PRINT 


910 


PRINT" 


920 


PRINT" 


VE" 




930 


PRI H T " 



EXAMPLE - 207 = 2 KLINGONS. NO STARBASES. 



7 STARS. 



\PHA\ COMMAND = PHASER CONTROL." 

ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY " 
ZAPPING THEM WITH SUITABLY LARGE UNITS OF BJERGY TO" 
DEPLETE THEIR SHIELD POWER. CREHBER. KLINGONS HAVE" 
PHASERS TOO!)" 

\TOR\ COMMAND = PHOTON TORPEDO CONTROL" 

TORPEDO COURSE IS THE SAME AS USED IN WARP ENGINE CONTROL 

IF YOU HIT THE KLINGON VESSEL. HE IS DESTROYED AND" 
CANNOT FIRE EACIC AT YOU. IF YOU HISS. YOU ARE SUBJECT TO 

HIS PHASER FIRE. IN EITHER CASE. YOU ARE ALSO SUBJECT TO 

THE PHASER FIRE OF ALL OTHER KLINGONS IN THE QUADRANT." 

THE LIBRARY-COMPUTER C\COM\ COMMAND) HAS AN OPTION TO " 
COMPUTE TORPEDO TRAJECTORY FOR YOU C OPTI ON 2)" 

\SHE\ COMHAND= SHIELD CONTROL" 

DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED TO THE" 
SHIELDS- ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY. NOTE 

THAT THE STATUS DISPLAY TOTAL. ENERGY INCLUDES SHIELD ENER 



\DAM\ COMMAND = DAMMAGE CONTROL REPORT" 

GIVES THE STATE OF REPAIR OF ALL DEVICES. WHERE A NEGATI 

■STATE OF REPAIR' SHOWS THAT THE DEVICE IS TEMPORARILY" 



9 40 PRINT" 
950 PRINT 
960 PRINT"\C 
970 PRINT" 

98 PRINT" 

99 PRINT" 
LL" 

1000 PRINT" 
1010 PRINT" 
1020 PRINT" 
1030 PRINT" 
1040 PRINT" 
1050 PRINT" 



SE" 

1060 PRINT" 
1070 PRINT" 

108 PRINT" 

109 PRINT" 
1100 PRINT" 
1110 PRINT" 
1 120 PRINT" 
1130 PRINT" 
1 140 PRINT" 
1150 PRINT" 
1990 POKE 12 
2000 PRINT:P 
2010 PRINT " 
2020 IF INPC 
2030 PRINT 
2040 PRINT " 
P05C1 PRINT " 



DAMAGED." 

0M\ COMMAND = LIBRARY-COMPUTER" 

THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS:" 
OPTION = CUMULATIVE GALACTIC RECORD" 

THIS OPTION SHOWES COMPUTER MEMORY OF THE RESULTS OF A 

PREVIOUS SHORT AND LONG RANGE SENSOR SCANS" 
OPTION 1 = STATUS REPORT" 

THIS OPTION SHOWS THE NUMBER OF KLINGONS. STARDATES." 

AND STARBASES REMAINING IN THE GAME." 
OPTION 2 = PHOTON TORPEDO DATA" 

WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRI 

TO ALL, KLINGONS IN YOUR QUADRANT" 
OPTION 3 = STAREASE NAV DATA" 

THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY " 
STARBASE WITHIN YOUR QUADRANT" 
OPTION 4 = DIRECTION/DISTANCE CALCULATOR" 

THIS OPTION ALLOWS YOU TO ENTER COORDINATES FOR" 
DIRECTION/DISTANCE CALCULATI ONS" 
OPTION 5 = CALACTIC /REGION NAME/ MAP" 

THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR " 
GALACTIC REGIONS REFERRED TO IN THE GAME." 
29.0: POKE 1237. 1:NULL 
RINT:PRINT 

TURN CASSETTE PLAYER ON AND HIT ANY KEY EXCEPT RETURN" 
I)=13 THEN 2020 



TURN CASSETTE PLAYER OFF AND " 

TYPE 'RUN' WHEN COMPUTER PRINTS 'OK' 



280 PRINT"AND EACH QUADRANT IS FURTHER DIVIDED INTO AN 8 X 8 SECTOR GRID 



Program Listing - The Game 



IE REM SUPER STARTREK - MAY 16.1978 - REQUIRES 24K MEMORY 
30 REM 

40 RBI **** **** STAR TRDC **** **** 

50 REM **** SIMULATION OF A MISSION OF THE STARSHIP ENTERPRISE. 

60 REM **** AS SEEN ON THE STAR TREK TV SHOW. 

70 RBI **** ORIGIONAL PROGRAM BY HIKE MAYFIELD. MODIFIED VERSION 

80 P.EM **** PUBLISHED IN DEC'S "101 BA5I C GAMES". BY DAVE AHL . 

90 REM **** MODIFICATIONS TO THE LATTER CPLUS DEBUGGING) BY BOB 

100 REM *** LEEDOH - APRIL. S. DECEMBER 1974. 

110 REM *** WITH A LITTLE HELP FRO] HIS FRIENDS • ■ . 



EPITHETS. AND SUGGESTIONS SOLICITED -- 

R. C LEEDOH 

WESTINGHOUSE DEFENSE £ ELECTRONICS SYSTEMS CNTR. 

BOX 746. M.S. 338 

BALTIMORE. HD 21203 



CONVERTED TO MICROSOFT 8 K BASIC 3/16/78 BY JOHN BORDERS 
LINE NUMBERS FROM VERSION STREK7 OF 1/12/75 PRESERVED AS 
MUCH AS POSSIBLE WHILE USING MULTIPLE STATEMENTS PER LINE 
SOME LINES ARE LONGER THAN 72 CHARACTERS; THIS WAS DONE 
BY USING "?" INSTEAD OF "PRINT" WHEN ENTERING LINES 



120 R.EH *** COMMENTS. 

130 RBI *** SEND TO: 

140 RBI *** 

150 RBI *** 

160 REM *** 

170 RBI *** 

18 RBI ** 

190 RBI ** 

200 REM ** 

205 REM ** 

210 RBI ** 

215 REM *** 

220 PP.1 NT: PRI NT: PRI NT: PRI NT: PRI NT: PRI NT: PRI NT: PRI NT: PRI NT: PRI NT: PRI NT 

221 PRINT" . * ." 

222 PRINT" . • '" 

223 PRINT" •-. --' / /" 

224 PRINT" . ' ' / /--." 

225 PRINT" • '"[PRINT 

226 PRINT" THE USS ENTERPRISE 1JCC-17G1" 

22 7 PRI NT: PRI NT: PRI NT: PRI NT: PRI NT 

260 CLEAR 600 

270 ZS=" 

330 DIM GC6.8).CC9, 2) . ICC 3. 3) . NC 3) . Z C8.8) . DC8) 

37 T=INTCRNDC 1 ) * 20 + 20)* 1 00: T0= T: T9= 25+1 NTC RNDC 1 > * 1 0) : D3= B: E= 3003: E0= E 

440 P=13:P0=P:S9=200:S=0:E9 = 0:K9 = 0:XS="":X3S=" IS " 

470 DEF FNDCD) = SQRCCKCI. 1>-S1> >2+CKCI, 2>-S2)t2) 

475 DEF FNRCR) = I1JTCRNDCR)*7. 98+1.0!) 

433 REM INITIALIZE ENTERPRI ZE' S FOSITION 

49 3 OI = FNRC 1) : 2= FN PC 1) :S1=FHRC 1) :S2=FNRC 1) 

530 F0RI=1T09:CCI, 1) = 0:CCI,2) = 0:NEXTI 

540 CC3. 1) = -1:CC2. 1) = -I:CC4. !) = -I:CC4. 2) = -l:CC5. 2>=-l:CC6. 2)=-l 

630 CC 1.2) = 1:CC2. 2)=1:CC6. 1 ) = 1 : CC 7.' I )= 1 : CC8. 1)=1:CCC. 2)=1:CC9. 2) = 1 

670 FORI=1TO8:DCI) = 0:NEXTI 

710 AIS="NAVSP.SLP.SPHATORSHEDAMC0MXXX" 

810 REM SETUP WHAT EXHI STS IN GALAXY . . . 

815 RB4 K3= t KLINGONS B3= I STARBASES S3= II STARS 

020 FORI = 1T03: FORJ= 1 T08 : 1C3= 0: ZC I . J) = 0: R1 = RNDC 1) 

850 IFR1>.98THENK3=3:!C9 = K9+3:GOTO98 

860 IFRI>.9 5TOENK3=2:K9=K9 + 2:GOTO98 

870 IFR1>.80THENK3=1:K9 = K9+I 

98 B3=0:IFRNDC 1 ) > .9 6THBJB3= 1:B9=E9 + 1 

1040 GCI.J)=K3*100+B3*10+FNRC 1) :NEXTJ :NEXTt : I FK9> T9 THBN T9 = K9+ I 

1 100 I FB9O0THEN1B30 

1150 IFGCOl.Q2X230THENGCei.Q2> = GCGl.O2) + 120:K9 = K9+l 

1160 B9=1:GCG1. Q2) = GC 0! . C2) + 1 0: Q 1= FNRC 1) :Q2=FNRC 1) 

1200 K7=K9:I FB9<>1THENXS="S":XBS=" ARE " 

1230 PRINT"YOUR ORDERS ARE AS FOLLOWS:" 

1240 PRINT" DESTROY THE"; K9; "KLINGON WARSHIPS WHICH HAVE INVADED" 

1250 PRINT" THE GALAXY BEFORE THEY CAN ATTACK FEDERATION H EADOUARTERS" 

1260 PRINT" ON STARDATE";T0+T9; " THIS GIVES YOU"; T9 .-'DAYS . THERE";X0 



1270 PRINT" 



;B9; "starbase";xs;" in the galaxy for resupplyihg your shi 



1280 PRIMT:PP.INT"HI T ANY KEY EXCEPT RETURN WHEN READY TO ACCEPT COMMAND" 

1300 I = RNDC1):IF INPC1)=I3 THB) 1330 

1310 RBI HERE ANY TIME HEW QUADRANT BJTERED 

1320 Z4=Q1:Z5=Q2:X3=0:B3=0: S3=0:G5=0: D4= . 5* RNDC 1 ) : ZC Ql. Q2) = GC Gl . 02) 

1390 I FQK 10P.Q1>80RQ2< 1 0EQ2>8THEU 1 600 

1430 GOSUB 9030:PRINT:I F T0<>T THEN 149 

1460 PRINT'TOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED" 

1470 PRINT"IN THE GALACTIC QUADRANT. '"; G2S; T " . ": GOTO 1500 

1490 PRINT"HOW ENTERING ";G2S;" QUADRANT . . ." 

1500 PRINT:K3=INTCGCG1.Q2>*.01> : B3= I NTC GC Q 1. Q2>* . !>- 10*1(3 

1540 S3=GCQ1.Q2)-I30*K3-10*B3:IFK'3=0THEN159 

1560 PRINT"COHBAT AREA CONDITION RED": I FS> 2B0THEN 1 590 

1580 PRINT" SHIELDS DANGEROUSLY LOW" 

1590 FORI= IT03:K(I. 1) =0:KC I, 2)= 0: NEXTI 
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16130 
1660 
1670 
16S0 
17 20 
1780 
1820 
1880 
1910 
1980 
1990 
2020 
2030 
2040 
20 50 

20 60 
2080 

21 40 
2160 
2180 
2190 
2200 
2210 
2220 
2230 
2240 

22 50 
2260 
229 
2300 
2310 
2330 
2350 

23 60 

238 

239 
2420 
2430 
2470 
249 
2500 
2510 
2530 
2550 
2560 
2570 
258 
2590 
2610 
E6 6S 

27 00 
2770 
279 
28G0 

28 10 

28 40 
2880 

29 10 
2930 
29 60 
3000 
3030 
3060 
3070 
31 10 
3140 
3170 
3240 
3320 
3350 
33 60 
3370 
3430 
3450 
3470 
348 
3490 
3500 
3550 
359G 
3620 
3670 

37 10 
3750 
3790 

38 00 
38 10 
38 20 
38 30 
38 40 
38 50 
38 60 

38 70 

39 00 
39 10 
39 30 

39 40 
398 
3990 
4000 
4030 

40 40 
40 60 
4120 
4180 
4210 
4230 
4250 
4260 
4265 

42 70 
428 
4330 

43 50 
4360 
43 70 
4400 
4410 
4450 



FORI=1TO3:K(I,3) = 0:NEXTI : QS=Z£+ZS+ZS+ZS+ZS+ZS+ZS+LEFTS( ZS, 17) 

REM POSITION ENTERPRISE IN QUADRANT- THEN PLACE "K3" KLINGONS, & 

REM "B3" STAREASES, S. "S3" STARS ELSEWHERE. 

A$="<*>":Z1 = S1:Z2=S2:GOSUB8 670:IBC3<1THEN1820 

FORI = 1 T0X3 : G 0SUB8 59 : AS= "+K+ " : Z 1 = R 1 : Z 2= R2 

GOSUB8 670:K(I, 1 ) = R1 : K( I, 2) = H2: K( I- 3) = S9*< 0. 5+RNDC 1) ) :NEXTI 

IFB3< 1THEN19I0 

GOSUB8 590:AS=">!<":ZI = R1:B4=R1:Z2=R2:B5=R2:GOSUB8 670 

FORI=1TOS3:GOSUB8590:AS=" * ": Z 1 = R1 : Z2= R2: G0SUB8 670:NEXTI 

GOSUB6430 

its+e>10thenife>!0ord(7) = 0then2060 

print: print"** fatal. error ** you've just stranded your ship in ' 

phint"space":print"you have insufficibjt maneuvering energy,"; 

print" and shield control": pri nt"i s presently incapable of cross"; 

print"-circuiting to engine room 1 ! ": goto6220 

input"comhand";as 

f0ri=1t09:i fleftscas, 3x>hids(a1s, 3*1-2, 3) then 2 160 

ONIGOTO2300, 198 0,4000,4260,4700, 5530, 569 0,7 29 0, 6270 

NEXTI :PRINT"ENTER ONE OF THE FOLLOWING:" 

PRINT" NAV (TO SET COURSE)" 

PRINT" SRS (FOR SHORT RANGE SENSOR SCAN)" 

PRINT" LRS (FOR LONG RANGE SENSOR SCAN)" 

PRINT" PHA (TO FIRE PHASEES) " 

PRINT" TOR (TO FIRE PHOTON TORPEDOES)" 

PRINT" SHE (TO RAISE OR LOWER SHIELDS)" 

PRINT" DAM (FOR DAMAGE CONTROL REPORTS)" 

PRINT" COM (TO CALL ON LIBRARY-COMPUTER)" 

PRINT" XXX (TO RESIGN YOUR COMMAND) ": PRINT: GOTO1990 

REM COURSE CONTROL BEGINS HERE 

INPUT"COURSE (0-9)",'Cl:IFCl = 9THENCl= 1 

I FC1>= IANDCK9THEN2350 

PRINT" LT. SULU REPORTS, 'INCORRECT COURSE DATA, SI R! ' ": G OTO1990 

XS="8":IFD( 1X0THBOXS="0.2" 

PRINT"WARP FACTOR (0-";XS; ") "; :INPUTW1:IFD( 1 )< 0ANDW1 > . 2THEN2470 

I FW1>0ANDW1< = 8THEN2490 

IFW!=0THEN1990 

PRINT" CHIEF ENGINEER 5C0TT REPORTS 'THE ENGINES WON'T TAKE"; 

PRINT" WARP "; Wl;"l '":GOTO1990 

PnINT"UARP ENGINES ARE DAMAGED. MAXI UM SPEED = WARP 0. 2": GOTO1990 

N=INT(Ul*8 + .5) :IFE-N>=0THEN259 

PRINT"ENGINEERING REPORTS 'INSUFFICIENT ENERGY AVAILABLE" 

PRINT" FOR MANEUVERING AT WARP"; W! ; " ! ' " 

IF5<N-EORD(7X0THEN199 

PRINT"DEFLECTOR CONTROL ROOM ACKNOWLEGES"; S; "UNI TS OF ENERGY" 

PRINT" PRESENTLY DEPLOYED TO SHIELDS." 

GOTO1990 

RSI KLINGONS MOVE/FIRE ON MOVING 5TARSHIP . . . 

FOPI = 1TOK3:IFK(I,3> = 0THEN2700 

AS= Z1 = K(I, 1) :Z2=K(I,2):GOSUB8 670:GOSUB8 59 

K(I, !)=Z1:K(I, 2> = Z2:AS="+K+":GOSUB8670 

'HECTI :GOSUB6000:D1 = 0:D6=WI: I FW1>= 1 THEND6= I 

F0RI=1T03:I FDCI)»=0THEN288 

D(I) = D(I)+D6:I FD(I)>-. 1ANDD(IX0THBMD(I> = -. 1:GOTO2B8 

IFD(IX0THEM2B8B 

IFD1<>1THENDI=1:PFINT"DAHAGE CONTROL REPORT: "; 

PR1NTTAB(8);:RI = I : GOSUB8 79 0: PRINTG2S; " REPAIR COMPLETED." 

NEXTI: I FRND( 1) > . 2THEN307 

R1=FKP.( 1) :I FRND( 1 ) >= . 6THEN3000 

D(RI) = D(P.1)-(RND( 1)*5+1) : PRI NT" DAMAGE CONTROL REPORT: "; 

GOSUB8 79 0:PRINTG2S;" DAMAGED": PRI NT: GO TO307 

D(E1) = D(R1)+RND( 1 )*3+ 1 : PRI NT"DAMAGE CONTROL REPORT: "; 

GOSUB8790: PRIHTG2S.'" STATE OF REPAIR IMPROVED": PRI NT 

RBI BEGIN MOVING STARSHIP 

AS=" ":Z1=IHT(S1> :Z2=1NTCS2> :GOSUB8 670 

XI = C(C1,1)+(C(C!+I,I)-C(C1,1))*CCI-INT(C1)):X=S1:Y=S2 

X2=C(C1,2)+(C(C1 + I,2)-C(CI, 2))*(C1-INT(CI>) : 04= 01: 05=02 

F0RI=lT0H:SI = Si+XI:S2=S2+X2:I FSK 1 ORS 1>=9 0RS2< 1 0RS2> = 9 THEN3500 

S8 = INTCS!)*24+IHT(S2)*3-26:IFMIDS(GS, S8,2) = " "THEN336E 

SI = INT(S1-X1):S2=INTCS2-X2> :PRIHT"WARP ENGINES SHUT DOWN AT "; 

PP,IMT"SECT0R";Sl;",";S2; "DUE TO BAD HAVAGATI ON":GOTO3370 

NEXTI :S1=IHT(S1) :S2=INT(S2) 

AS="<*>":Z1 = INTCS1> :Z2=INT(S2) :GOSUB8 670: G0SUB39 10: T8= 1 

I FWK 1THENT8=. 1*INT( 10*W1) 

T=T+TB:I FT>T3 + T9THEN6223 

REM SEE IF DOCKED, THEN GET COMMAND 

G0T0198E 

REM EXCEEDED QUADRANT LIMITS 

X=8*Ql+X+N*XI:Y=8*Q2+Y+H*X2:01=IHT(X/8> :G2=INT(Y/8) : S 1= I HT(X- 01*8) 

S2=IHTCY-02*8> :I FS 1 = 0THBOQ1=Q1- I : S 1=8 

IFS2=0THENO2=O2-1:S2=8 

X5=0:I FQK 1 THENX5= 1 : GI = I:S1= 1 

IFQ1>8THEMX5=I:G1 = 3:S1 = 8 

I FQ2< 1 TH ENX 5= I : Q2= I : S2= I 

I FQ2>8 THENX5= I : Q2=8 : S2=8 

I FX5=0THEN38 60 

print"lt. uhura reports message from starfleet command:" 

print" 'permission to attempt crossing of galactic perimeter" 

print" is hereby *deni£d*. shut down your engines.'" 

print"chief engineer scott reports 'warp engines shut down" 

print" at sector";si;",";s2;"of ouadrant";qi;",";g2;"- '" 

ift>t0+t9then6220 

i f8*g1 + q2=8*c4+q5then3370 

t=t+!:gosub39 13: gotoi 320 

rbi maneuver energy s/p. ** 

E=E-N-10:I FE>=0THENr.ETURN 

PRINT"SHIEL,D CONTROL SUPPLIES HOERGY TO COMPLETE THE MANEUVER." 

S=S+E: E=0:I FS< = 0THENS=0 

RETURN 

F.EM LONG RANGE SENSOR SCAN CODE 

IFD(3X0THENPRIHT"LONG RANG E SENSORS ARE I NOPERABLE": G0T0199 

PRINT"L0NG RANGE SCAl] FOR OUADRAHT"; 01,' ", "; G2 

01S=" "IPRIHTOIS 

F0RI=G1-1T0Q1+1:H( 1)=- I : N( 2> = - 2: NC 3) = - 3: F0RJ= Q2- I T0C2+ 1 

IF1>0AHDI<9ANDJ>0ANDJ<9THEJH(J-G2+2) = G(I,J) :Z(I,J)=G(I,J> 

NEXTd: F0RL=1T03:PRINT": "; : I FN(LX 0THENPRINT"*** "; :GOTO4230 

PRINTRIGHTS( STRS(H(L) + I0G0),3);" "; 

HEXTL : PRI NT": ": PRI NT 01 5: NEXTI: GOTO 199 

REM PHASER CONTROL CODE BEGINS HERE 

IFD(4X0THBJPRINT"PHASERS INOPERATI VE": GOTO 199 

IFK3>0THB>J4338 

PRINT"SCI BJCE OFFICER SPOCK REPORTS 'SENSORS SHOW NO ENB1Y SHIPS" 

PRINT" IN THIS aUADRANT'":GOTO1990 

IFDC8X0THB)PEIHT"COMPUTEE FAILURE HAMPERS ACCURACY" 

PRINT"PHASERS LOCKED ON TARGET; "; 

PRINT"B-1ERGY AVAILABLE = ",'E; "UNITS" 

INPUr'NUMBER OF UNITS TO FI RE";X : I FX< = 0THEN 1990 

IFE-X<3THEN4360 

E=E-X:I FD( 7X 0THBJX=X*RND( 1) 

H! = INT(X/K3) :F0RI=1T03:I FK( I , 3X= 0THEN4670 



4480 

4500 

70 

4530 

4550 



4560 

458 

46 50 

4670 

469 

4700 

4730 

4760 

478 

4790 

4800 

48 50 

48 60 

49 10 
49 20 
49 60 
5000 
5050 
5060 
51 10 
5150 
5180 
5190 
5210 
5260 
99 
528 
5330 
5360 
5370 
538 
5390 
5400 
5410 
5430 
5470 
549 8 
5520 
5530 
5560 
558 
5590 
5600 

5610 
5630 
5660 

568 

569 3 
57 0G 
5723 

57 6E 
578 8 
5810 

58 20 
58 40 
58 63 

58 70 
5390 

59 10 
59 20 

59 53 
593 
599E 
6000 

60 10 
6040 
60 60 
638 
6890 
6100 
6120 
6143 
6178 
6230 
6210 
6223 
6243 
6253 

62 70 
623 
629 
6310 

63 20 
6330 
63 63 
6373 
6388 
6430 
6420 
6430 
6450 
6490 
6540 
658 3 
6623 
6650 
6663 
6720 

67 30 
6770 

68 23 
68 38 

68 50 

69 00 
69 60 
7020 
7370 
7 120 
7180 
7240 
7260 
728 



H=INT((H1/FND(0))*(RND( l) + 2>) :IFH>. 1 5*K( I , 3) THEN4530 
PRINT"SENSORS SHOW NO DAMAGE TO ENEMY AT "; K( I , 1 ) ; ", " 



K(I,2> :G0T046 



K(I,3) = K(I, 3)-H:PP.INTH,'"UNIT HIT ON KLINGON AT SEC TOR";K( I , 1 ) ; ", "; 
PRINTK(I,2) :IFK(I,3X=0THENPP.INT"*** KLINGON DESTROYED ***":G0T0458 

PRINT" (SENSORS SH 0W";1C( I , 3) ; "UNI TS REMAINING) ": GOTO4670 

K3=K3-1:K9=K9-1:Z!=K(I, 1) :Z2=K(I, 2>:AS=" ":GOSUB8 670 

K(I, 3) = 0:G(QI,Q2) = G(Q1,Q2)-100:Z(Q1,Q2) = G(E1, Q2) : I FK9< = 0THEN6370 

NEXTI :GOSUB6000: GOTO 1990 

RBI PHOTON TORPEDO CODE BEGINS HERE 

1FP< = 0THENPRINT"ALL PHOTON TORPEDOES EXPENDED": GOTO 1990 

IFD( 5X0THENPRINT"PHOTOH TUBES ARE NOT OPERATI ONAL": G OT0199 

INPUT'VPHOTON TORPEDO COURSE ( 1-9 )"; C 1 : 1 FC 1 = 9 THENC 1= 1 

I FCI>= IAN DC 1< 9 THEN 48 50 

PRINT"ENSIGN CHEKOV REPORTS, 'INCORRECT COURSE DATA, SIR!'" 

GOTO1990 

X1=C(C1, 1>+(C(C1 + I, 1)-C(C1, 1))*(C1-INT(C1)) :E=E-2:P=P-1 

X2=C(C1,2)+(C(C1 + 1,2)-C(C1,2))*(C1-INT(C1>) :X=S1:Y=S2 

PRINT"T0RPED0 TRACK:" 

X=X+Xl:Y=Y+X2:X3=INT(X + .5) :Y3= INT(Y+ . 5) 

IFX3< 10RX3>8 0RY3<10RY3>8TH BJ549C 

PRINT" ";X3; ",";Y3:AS=" ":ZI = X:Z2=Y:GOSUB8830 

IFZ3O0THEN4920 

AS="+K+":Z 1 = X:Z2=Y:G0SUB883G: I FZ3= 0THBJ52 1 

PRINT"*** KLINGON DESTROYED ***": K3=K3- 1 : 1(9 = 1(9- 1 : I FK9<= 3THBJ6370 

F0RI=1T03:I FX3=K( I , 1 ) ANDY3=K( I, 2) THEN519 

NECTI :I = 3 

K(I,3)=0:GOTO5430 

AE=" * ":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5283 

PRINT'STAR AT";X3; ",";Y3J "ABSORBED TORPEDO BilERGY .": G OSUB6000: GOTOI 

A5=">!<":Z1 = X:Z2=Y:G0SUEB8 33:IFZ3=3THEJ47 63 

PRINT"*** STARBASE DESTROYED ***": E3= B3- 1 : B9= E9- 1 

I FB9 >0 0PK9 > T- TB- T9 TH E>! 5400 

PRINT"THAT DOES IT, CAPTAIN!! YOU ARE HEREBY RELIEVED OF COMMAND" 

PRIHT"AHD SEITBJCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 121!" 

GOTO 6270 

PRINT"STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER" 

PRINT"COURT MARTIAL!": D0=0 

ZI=X:Z2=Y:AS= G0SUD8673 

G(Q1, O2)=K3*I08 + E3*10 + S3:Z(Q1,O2> = GCQ1,C2> : G OSUB6B00: GOTO 199 3 

PRIHT"TORPEDO ill SS ED": G OSUB60B3: GOTO 199 

RH'I SHI ELD CONTROL 

IFD(7X0THENPRINT"SHia.D CONTROL 1 NOPERABLE": GOTO1990 

PRINT"ENERGY AVAILABLE =",' E+S; : INPUT"NUMBEP. OF UNITS TO SHIELDS";!! 

IFX<0OBS=XTHENPF.INT"<SHIELDS UNCHANGED* ": GOTO 199 

IFX< = E+STHEN563B 

PRINT"SHIELD CONTROL REPORTS 'THIS IS NOT THE FEDERATT ON TREASURY. 

PRI NT"< SHI EL DS UNCHANG ED> " : G OTO 1 99 

E=E+S-X:S=X:PEIHT"DEFLECTOR CONTROL ROOM REPORT:" 

PRINT" 'SHIELDS NOW AT"; I NTC S) ; "UNI TS PER YOUR COMMAND. '": G OTO1990 

RBI DAMAGE CONTROL 

IFD( 6>>=0THBI59 10 

PRINT"DAHAGE CONTROL REPORT HOT AVAI LAELE": I FD3=0TH EN 1990 

D3=3: F0RI=1T08:I FD( I X 0THEND3= D3+ . 1 

NEXTI : 1 FD3=3THBJ1990 

PE1NT:D3=D3 + D4:IFD3> = 1T11EWD3=.9 

PF.INT'TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP,'" 

PRINT"ESTIMATED TIME TO T.EPAI R: "; . 3 1*1 NTC I 80* D3) ; "STARDATES" 

INPUT"\IILL YOU AUTHORIZE THE REPAIR ORDER CY/H)";AS 

IFASo"Y"THEJ 1990 

F0RI= IT 08: I FD(IX0THEJD(I) = 

NECTI :T=T+D3+. 1 

PRINT:PP,I!iT"DEVICE STATE OF REPAI R": F0RR1= 1 T08 

GOSUB8 790:PRIHTG2S;LEFTS(ZS, 25-LB«G2S> > ; I MTC D( P.I ) * 1 00) * . 1 

NEXTE1:PEINT:IFD0O0THBJ5723 

GOTO 1990 

rem klingons shooting 

i fk3< = 3thenreturn 

ifds<>3thenprint"stap.base shields protect the b'lterpri se": return 

fop.i = !t03:i fk( i , 3x=0thbi6230 

h = int((k(i,3)/fnd( 1 ) >* ( 2+rhd( 1 ) ) ) :s=s-h:k(i, 3)=k(i, 3) /( 3+ehdc 8) > 

printh;"unit hit on enterprise from sector";k(1, d;",";k(i,2) 

IFS< = 3THEN6240 

PRINT" <5HIELDS DOWN TO"; 5; "UNI TS>": I FH< 23TH BJ620G 

I FP.ND( 1>>.60RH/5<=.G2THBJ6238 

R1=FHR( I) :D(RI) = D(ni)-H/S-.5*PND( 1) :G0SUE8 79 3 

PRINT"DAHAGE CONTROL REPORTS '"JG2S>" DAMAGED BY THE HIT'" 

NECTI : RETURN 

REM END OF GAME 

PRINT"IT IS STARDATE";T:GOTO 6270 

PRINT:PRINT"THE BJTERPR1SE HAS BEEN DESTROYED. TOE FEDERATION "; 

PRINT"WILL BE C ONGUERED": G OTO 6220 

PRINT"THEnE WERE";1C9; "KLINGON BATTLE CRUISERS LEFT AT" 

PRINT'THE END OF YOUR MISSION." 

PRI N T: PRI H T: I FB9= 3TH EM 6360 

PRINT"THE FEDERATION IS IN HEED OF A NEW STARSHIP COMMANDER" 

PRINT"FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER," 

INPUT"LET HIM STEP FORWARD AND BITER ' AYE' "; AS: I FAJ= "AYE'THBJ 1 

END 

PP,IHI"COHGRULATIOH, CAPTAIN! THE LAST KLINGON BATTLE CP.UI SER" 

PRINT"MBMACING THE FEDERATION HAS BEEN DESTROYED. ": PRINT 

PRINT"YOUR EFFICIENCY RATING I S"; I 000*( K7/( T- T0) ) I 2: GOT0629 

REM SHORT RANGE SENSOR SCAN e. STARTUP SUBROUTINE 

FORI = SI- !TOS1 + 1:FORJ=S2-1TOS2+I 

IFINT(I + .5X 10P.INTU+.5)>80RINT(J+.5X 1 ORI HTC J+ • 5) >S THBJ6548 

AS=">!<":Z1=I :Z2=J:GOSUB08 33:IFZ3= 1THBM658 

HDCTJ: HECTI : D0= 0: GOT 06658 

D0= 1 : CS="DOCKED": E=E0: P= P0 

PRINT"SHI ELDS DROPPED FOR DOCKING PURPOSES": S= 0: G 0T06723 

I FX3>0THENCS="*P.ED*":GOTO6720 

CS="GREB<J":I FE<EB*. 1TKEICS= "YELLOW" 

IFD(2)>=GTHEN6770 

PRINT:PRINT"*»* SHORT RANGE SENSORS ARE OUT ***": PRINT: RETURN 

01 S=" ":PRIHT01S: F0RI=1T08 

FORJ=CI- 1)*24-HT0(I-I)*24+22STEP3:PRINT" ";HID5CGS, J, 3); :NEXTJ 
OHIGOTO68 50, 69 00, 69 63,7020,7070,7 120, 718 0,7 248 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 



STAR DATE 

CONDI TI ON 

QUADRANT 

SECTOR 

PHOTON TORPEDOES 

TOTAL BJERGY 

SHIELDS 

KLINGONS RB1AINING 



,-lNT(T*10)*. 1: GOTO? 268 
";CS:G0T07263 

;oi;","; Q2:G0T07268 

;Sl;",";S2:GOTO7260 
;INT(P) :GOTO7260 
;IHT(E+S) :GOT07268 
;INT(S):GOTO7260 
;INT(K9) 



HECTI : PRI NTOI I: RETURN 

RB-1 LIBRARY COMPUTER CODE 



160 



7290 
7320 
7350 
7360 
7370 
7372 
737a 
7376 
7378 
7380 
7390 
7400 
7530 
7540 
75/12 
7543 
75,/iZI 
75/16 
7550 
7 560 
7570 
7630 
7700 
7720 
77/10 
7800 

78 50 
7890 

79 00 
79/10 
79 60 

79 70 

798 
XY" 

799 
B010 
8020 



I FD< 8 ) < 0TH ENPRI NT"COMPUTER DI SABLED": GOTO 199 

INPUT-COMPUTER ACTIVE AMD AWAITING COMMAND".' A: I FA<0THEN 1990 

PRI N T:H8= 1 : ONA+ 1 G OT07 5/10, 7900. 8 070. 8 500. 8 1 50. 7/100 

PMNT"FUNCTIONS AVAILABLE FROM LI BRARY- COMPUTER! " 

PRINT" = CUMULATIVE GALACTIC RECORD" 

PRINT" 1 = STATUS REPORT" 

PRINT" 2 = PHOTON TORPEDO DATA" 

PRINT" 3 ■ STARBASE NAV DATA" 

PRINT" /I = DIRECTION/DISTANCE CALCULATOR" 

PRINT" 5 = GALAXY 'REGION NAME' MAP": PRINT1GOTO7320 

RBI SETUP TO CHANGE CUM GAL RECORD TO GALAXY MAP 

H8=0:G5=1:PRINT" THE GALAXY": G OTO7550 

REM CUM GALACTIC RECORD 

INPUT"DO YOU WANT A HARDCOPY? IS THE TTY ON <Y/N)";A$ 

IFAS="Y"THENP0ICE1229.2:P0KE1237. 3:NULL1 

PRINT: PRINT" "; 

PR1NT"C0MPUTER RECORD OF GALAXY FOR QUADRANT"; Q1J ". "} Q2 

PRINT 

PRINT" 1 2 3 U 5 6 7 8" 

01J=" _-.„... „ 

PRI NTO IS: FORI =1TO8:PRINTIJ:IFH8=0THEN7 7/10 

F0RJ= 1T08:PR1NT" "> : I FZC I, J) = 0THENPR1NT"***"; :GOTO7720 

PRINTRIGHTICSTRSCZCI-J) + 1000),3>; 

NEXTJ:GOTO78 50 

ZZ1=I:Z5=1:GOSUB9 030:J0=INTC 1 5- . 5*LENC G2I) > : PRINTTABC J0) ; G2f I 

Z5=5:G0SUB 9030:J0=INTC39-.5*LENCG2S)) : PRINTTABC J0) -• G2J- 

PHINT:PRINTOlS:NEXTI : PRINT: POKE1 229- 0: POKE1 237. 1 :NULL0: GOTO199 

REM STATUS REPORT 

PRINT " STATUS REPORT: ":XS="": I FK9> 1 THENXS= "S" 

PRINT"KLINGON";XS;" LEFT: ";K9 

PRINT"MISSION MUST BE COMPLETED IN"; . 1*INT( C T0+T9-T) * 10) ; "STARDATES 

XS="S":IFB9<2THENX5= I FB9< 1THEN8010 

PRINT"THE FEDERATION IS MAI NTAINING"; B9; "STARBASE";XS; " IN THE GALA 



Sample Run - Instructions 



********************.***************** 



* SUPER STAR TREK * * 



************************************* 



8060 
8070 
8080 
8090 
8100 
81 10 
8120 
8 150 
8160 
8170 
8200 
8220 
8250 
8260 
8270 
82B0 
8290 
8310 
8330 
8 3 50 
8360 
8/110 
8/120 
8/130 
8/150 
8/160 
8/180 
8500 
8510 
8520 
8 58 
8590 
8600 
B66B 
8670 
8675 
8680 
8690 
8700 
8780 
8790 
8792 
879/1 

8 79 6 
8798 
88 00 
8802 
880/1 
8806 
88 20 
8830 
8890 
8900 
9010 
9020 
9030 
9035 
90/10 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
91/10 
9150 

9 160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
OK 



GOTO5690 

PRINT"YOUR STUPIDITY HAS LEFT YOU ON YOUR ON IN" 

PRINT" THE GALAXY -- YOU HAVE NO STARBASES LEFTI ": GOTO5690 

REM TORPEDO- BASE NAV- D/D CALCULATOR 

I FK3<=0TH EN/1270 

XS= I FK3> 1 THENXS="S" 

PRINT"FHOM ENTERPRISE TO KLINGON BATTLE CRUSER";XS 

H8=0:FORI=1TO3:IFKCI.3)<=0THEN8Z18 

W1=KCI. 1) :X=KCI.2> 

C1=S1:A=S2:GOTO8220 

PRI NT"DI RECTI ON/DISTANCE CALCULATOR:" 

PRINT"YOU ARE AT OUADRAllT "-• 0! ; ", "; 02; " SECTOR ";5I-".";S2 

PRINT"PLEASE ENTER": INPUT" INITIAL COORDINATES CX-Y)";C1.A 

INPUT" FINAL COORDINATES (X.Y) "; Ml- X 

X=X-A:A=C1-W1:IFX<0THEN8 350 

I FA<0THENBZ|I0 

IFX>0THEN8 280 

IFA=0THENC1=5:GOTO8 29 

Cl=l 

I FAES(AX=ABSCX> THEN8330 

PRI NT"DI RECTI ON = "; C l + ( < ( ABS< A) -ABS(X) ) +ABSC A) ) /ABSC A) ) :GOTO8/|60 

Pr-IHT"DI RECTI ON = "; C 1+C ABS< A) /ABS(X) > : GOTO8/160 

I FA> TH ENC 1 = 3 : G 0T08 Z120 

IFX<>0THENC!=5:GOTO8 29 

Cl = 7 

I FABS< A) >=ABSCX> THEN8/150 

PRINT"DI RECTI ON = "; C1*C C ( ABSCX) -ABSC A) ) +ABSCX) ) /ABSCX)) :GOTO8/160 

PRINT'DI RECTI ON = "." C 1 + C ABSCX) /ABSCA)) 

PRI NT"DI STANCE = "; SSRCXt 2+At 2) : I FH8= 1 THEN 199 

NEXTI :G0T0199B 

IFB3<>0THENPRINT!'FROH ENTERPRISE TO STAEBASEi": W l=8Zl:X=BS: G 0T08 1 20 

PPINT"MR. SPOCK REPORTS- 'SENSORS SHOW NO STARBASES IN THIS"; 

PRINT" QUADRANT. *":GOTO1990 

REM FIND EMPTY PLACE IN QUADRANT C FOR THINGS) 

RI=FNRC 1) :R2=FNR( 1) :AS=" ": Z 1= Rl : Z2= R2:G0SUB88 30: 1 FZ3=0THENB59 

RETURN 

RBI INSERT IN STRING ARRAY FOP. QUADRANT 

S8= I NT( Z 2- . 5) * 3+1 H TC Z 1 - . 5) * 24+ I 

IF LENCAIX>3THEN PRINT"ERROR": STOP 

IFS8=1THENQS=AS+RIGHTSCQJ. 189): RETURN 

IFS8=190THENQ$=LEFTSCCS, 189 > +A$: RETURN 

Q$=LEFTtCGJ. SB-I)+AS + RIGHTSCQ1. 1 9 0- S8 ): RETURN 

RBI PRINTS DEVICE NAME 

ONRlGOTO879 2-8 79Zl-B79 6-8 798-88 00-86 02.88 0Zl.88 06 

G2S="WARP ENGINES": RETURN 

G2S="SH0RT RANGE SENSORS": RETURN 

G2S="L0NG RANGE SENSORS": RETURN 

G2S="PHASER CONTROL": RETURN 

G2$="PH0T0N TUBES":RETURN 

G2I="DAMAGE CONTROL": RETURN 

G2S="SHIELD CONTROL": RETURN 

G2S="LI BRA HY-COHPUTER": RETURN 

RBI STRING COMPARISON IN QUADRANT ARRAY 

Z 1= I N T( Z 1 + . 5) : Z 2= I N TC Z 2+ . 5) : S8= C Z 2-1 > * 3+'( Z 1 - I > * 2/1+ I : ? 3= 

IB'IIDSCQS. SB.3X>ASTHENRETURN 

Z3=l: RETURN 

REM QUADRANT NAME IN G2S FROM Z/1.Z5 C = Q1.Q2) 

REM CALL WITH G5=! TO GET REGION NAME ONLY 

IFZ5< = /lTHENOHZZlGOTO9 0Zi0. 9 050. 9 060.9 070. 9080.9090.9 100-9 110 

GOTO9 120 

G2S="ANTARES":GOTO9210 

G2$="R1GEL":GOTO9210 

G2S="PR0CY ON": GOT 09210 

G2J= "VEGA": G0T09 210 

G2S="CANOPUS":GOTO9210 

G 2S= "AL TAI R" : G 0T09 2 1 

G2S="SAGITTAR1US":GO7O92I0 

G2S="POLLUX":GOTO9 210 

0NZ/1G0T09 1 30. 9 1 Z10. 9 1 50. 9 1 60 19 0, 9 200 

G2S="SI RI US": G0T09 21 

G2J="DENEB":GOTO9210 

G2S= "CAPELLA" : G 0T09 2 1 

G2$="BETELGEUSE":GOTO9 210 

G2I= "ALDEBARAN": G 0T09 2 1 

G2J="REGULUS":GOTO9 210 

G2S="ARCTURUS":GOTO9 210 

G2J="SPICA" 

I FG5< > 1 TH ENONZ 5G0T09 230. 9 2/10. 9 250. 9 260. 9 230. 9 2/10. 9 250.9 260 

RETURN 

G2$=G2S+" ,1": RETURN 

G2S=G2$+" 1 1": RETURN 

G2$=G2I+" III"! RETURN 

G2S=G2$+" IV"! RETURN 



DO YOU NEED INSTRUCTIONS CY/N) ? Y 

TURN THE TTY ON-LINE AND HIT ANY KEY EXCEPT RETURN 
INSTRUCTIONS FOR 'SUPER STAR TREK' 

1. WHEN YOU SEE \ COMMAND ?\ PRINTED. ENTER ONE OF THE LEGAL 
COMMANDS CNAV.SRS.LRS.PHA.TOR.SHE. DAM- COM. OR XXX) . 

2- IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND- YOU'LL GET A SHORT 
LIST OF THE LEGAL COMMANDS PRINTED OUT. 

3. SOKE COMMANDS REQUIRE YOU TO ENTER DATA C FOR EXAMPLE- THE 
'NAV COMMAND COMES BACK WITH 'COURSE Cl-9) ?'.) IF YOU 
TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS)- THAT COMMAND 
WILL BE ABORTED 

THE GALAXY IS DIVIDED INTO AN 8 X 8 QUADRANT GPI D. 
AND EACH QUADRANT IS FURTHER DIVIDED INTO AN 8 X 8 SECTOR GRID. 

YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE 
GALAXY TO BEGIN A TOUR OF DUTY AS COMMANDER OF THE STARSHIP 
\ENTERPRISE\; YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF 
KLINGON WARWHIPS MICH ARE MENACING THE UNITED FEDERATION OF 
PLANETS. 

YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS CAPTAIN 
OF THE STARSHIP ENTERPRISE: 

\NAV\ COMMAND = WARP ENGINE CONTROL, -- 

COURSE IS IN A CIRCULAR NUMERICAL Zl 3 2 

VECTOR ARRANG'BIENT AS SHOWN . . . 

INTEGER AND REAL VALUES MAY BE 
USED. (THUS COURSE 1.5 IS HALF- 
WAY BETWEEN 1 AND 2 



5 ---*--- 1 



VALUES MAY APPROACH 9.0. 
ITSELF IS EQUIVALENT TO 



WHI CH 

.0 



ONE WARP FACTOR IS THE SIZE OF 
ONE OUADTANT. THEREFORE. TO GET 
FROM QUADRANT 6.5 TO 5.5. YOU WOULD 
USE COURSE 3. WARP FACTOR 1. 

\SRS\ COMMAND = SHORT RANGE SENSOR SCAN 

SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT. 

SYHBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS: 
<*> = YOUR STARSHIP'S POSITION 
+ K+ = KLINGON BATTLE CRUISER 

>!< = FEDERATION STAREASE C REFUEL./REPAI P/RE-ARH HERE!) 
* = STAR 

A CONDENSED 'STATUS REPORT' WILL ALSO BE PRESENTED. 

\LRS\ COMMAND - LONG RANGE SENSOR SCAN 

SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE 
OF THE ENTERPRISE (WHICH IS IN THE MIDDLE OF THE SCAN) 
THE SCAN IS CODED IN THE FORM \Htl\, WHERE TH UNITS DIGIT 
IS THE NUMBER OF STARS. THE TBJS DIGIT IS THE NUMBER OF 
STARBASES. AND THE HUNDRESDS DIGIT IS THE NUMBER OF 
KLINGONS. 

EXAMPLE - 207 = 2 KLINGONS. NO STARBASES- i 7 STARS. 

\PHA\ COMMAND = PHASER CONTROL. 

ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY 
ZAPPING THB-1 WITH SUITABLY LARGE UNITS OF ENERGY TO 
DEPLETE THEIR SHIELD POWER. (REIBER. KLINGONS HAVE 
PHASEfIS TOO!) 

\TOR^ COMMAND = PHOTON TORPEDO CONTROL 

TORPEDO COURSE IS THE SAME AS USED IN WARP ENGINE CONTROL 
I-F YOU HIT THE KLINGON VESSEL. HE IS DESTROYED AND 
CANNOT FIRE BACK AT YOU. IF YOU MISS. YOU ARE SUEJECT TO 
HIS PHASER FIRE. IN EITHER CASE. YOU ARE ALSO SUBJECT TO 
THE PHASER FIRE OF ALL OTHER KLINGONS IN THE OUADRANT. 

THE LIBRARY-COMPUTER (\COM\ COMMAND) HAS AN OPTION TO 
COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2) 

\SHE\ COMMAND = SHIELD CONTROL. 

DEFINE5 THE NUMBER OF BJERGY UNITS TO BE ASSIGNED TO THE 
SHIELDS. ENERGY IS TAKEN FROM TOTAL SHIP'S BIEP.GY. NOTE 
THAT THE STATUS DISPLAY TOTAL ENERGY INCLUDES SHIELD BJERGY 

\DAM\ COMMAND = DAMMAGE CONTROL. REPORT 

GIVES THE STATE OF REPAIR OF ALL DEVICES- WHERE A NEGATIVE 
'STATE OF REPAIR' SHOWS THAT THE DEVICE IS TEiPORAPILY 
DAMAGED. 

\COM\ COMMAND = LI BRARY-COMPUTER 

THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS: 
OPTION = CUMULATIVE GALACTIC RECORD 

THIS OPTION SHOWES COMPUTER MEMORY OF THE RESULTS OF ALL 

PREVIOUS SHORT AND LONG RANGE SBJSOR SCANS 
OPTI ON 1 = STATUS REPORT 

THIS OPTION SHOWS THE NUMBER OF KLINGONS- STARDATES- 

AND STARBASES REMAINING IN THE GAME. 
OPTION 2 = PHOTON TORPEDO DATA 

WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRISE 

TO ALL KLINGONS IN YOUR QUADRANT 
OPTION 3 = STARBASE NAV DATA 

THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY 

STARBASE WITHIN YOUR QUADRANT 
OPTION /I = DIRECTION/DISTANCE CALCULATOR 

THIS OPTION ALLOWS YOU TO BOER COORDINATES FOR 

DIRECTION/DISTANCE CALCULATIONS 
OPTION 5 = CALACTIC /REGION NAME/ MAP 

THIS OPTION PRINTS THE NAMES OF THE SIXTEBJ MAJOR 

GALACTIC REGIONS REFERRED TO IN THE GAME. 
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Sample Run - Game 



' --■ / / 

, — . t / / „„ j 

THE USS ENTERPRISE NCC-1701 



YOUR ORDERS ARE AS FOLLOWS: 

DESTROY THE 8 KUNGON WARSHIPS WHICH HAVE IMVADED 
THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS 
ON STARDATE 3025 THIS GIVES YOU 25 DAYS. THERE ARE 
3 STARBASES IN THE GALAXY FOR RESUPPLYING YOUR SHIP 

HIT ANY KEY EXCEPT RETURN MEN READY TO ACCEPT COMMAND 

YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED 
IN THE GALACTIC QUADRANT, 'BETELGEUSE I'. 



STARDATE 


3000 


CONDITION 


GREEN 


QUADRANT 


4 , 5 


SECTOR 


6 j 2 


PHOTON TORPEDOES 


10 


TOTAL ENERGY 


3800 


SHIELDS 





KLINGONS REMAINING 


8 



COMMAND? LRS 

LONG RANGE SCAN FOR QUADRANT 4 



: 034 : 


: 005 : 


: 006'' : 


: 083 : 


! 003 i 


: !08 : 


: 00 1 : 


: 084 : 


002 : 



COMMAND? NAV---SHE 

ENERGY AVAILABLE = 3830 NUMBER OF UNITS TO SHIELDS? 2080 

DEFLECTOR CONTROL ROOM REPORT: 

'SHIELDS NOW AT 2083 UNITS PER YOUR COMMAND.' 
COMMAND? WAV 
COURSE (0-9)? 1. 16667 
WARP FACTOR C0-8) ? 1 

NOW ENTERING BETELGEUSE II QUADRANT . . . 

COMBAT AREA CONDITION RED 



STARDATE 




3BE1 


C ON DI TI ON 




* RED* 


CUADRAN T 




4 , 6 


SECTOR 




4 , 2 


PHOTON TORPEDOES 




10 


TOTAL ENERGY 




298 2 


SHIELDS 




2BBB 


KLINGONS r.EHAINI! 


*IG 


8 



COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 2 

FROM ENTERPRISE TO KLINGOH BATTLE CRUSER 

DIRECTION = 0.7 5 

DI STANCE = 4.1231 1 

COMMAND? TOR 

PHOTON TORPEDO COURSE (1-9)? 8.75 

TORPEDO TRACK: 

4,3 

5 , n 

5 , 5 

5 , 6 
*** KLINGOH DESTROYED *** 
COMMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 1,6 



805 : 006 : 005 : 
003 : 008 : 008 : 
884 : 002 : 003 : 



COMMAND? NAV 
COURSE (0-9) ? 5 
WARP FACTOR (0-8) 1 



NOW ENTERING VEGA II CUADRANT 



STARDATE 




3832 


CONDITION 




GREEN 


QUADRANT 




a , 2 


SECTOR 




1,2 


PHOTON TO: 


iPEDOES 


9 


TOTAL ENERGY 


29 38 


SHIELDS 




2800 


KLINGONS REMAINING 


7 



COMMAND? LPS 

LONG RANGE SCAN FOP. OUADllANT M , 2 



: 085 : 


183 


: 006 : 


: 102 : 


806 


: 886 : 


: 008 : 


007 


: 885 : 


COMMAND? NAV 
COURSE (0-9) 
WAR? FACTOR 1 


? 5 
:8-8) ? 1 



NOW ENTERING VEGA I QUADRANT . 
COMBAT AREA CONDITION RED 



ENERGY AVAILABLE 



STARDATE 


3883 


CONDI TI ON 


*EED* 


QUADRANT 


4 , 1 


SECTOR 


4 , 2 


PHOTON TORPEDOES 


9 


TOTAL ENERGY 


29 20 


SHIELDS 


2308 


KLINGONS REMAINING 


7 


iBLE =9 20 UNITS 





COMMAND? PHA 

PHASER5 LOCKED ON TARGET,' 

NUMBER OF UNITS TO FIRE? 180 

231 UNIT HIT OH KLIN30N AT SECTOR 5 , 1 
(SENSORS SHOW 28.4468 UNITS REMAINING) 

4! UNIT HIT ON ENTERPRISE FROM SECTOR 5 , 1 
< SHI ELDS DOWN TO 19 59 UNI TS> 
COMMAND? PHA 

PHASERS LOCKED ON TARGET; ENERGY AVAILABLE =• 820 UNITS 
NUMBER OF UNITS TO FIRE? 14 

28 UNIT HIT ON KbINGON AT SECTOR 5 , 1 
*** KLINGON DESTROYED *** 
COMMAND? LRS 
LONG RANGE SCAN FOR OUADRANT 4 , 1 



: *** 


: 885 : 


103 : 


: *+* 


: 002 : 


306 : 


: *#* 


: 088 : 


33 7 : 



COMMAND? NAV 

COURSE (0-9) ? 2 

WARP FACTOR (0-8)? 1.414 

NOW ENTERING PP.OCYON II QUADRANT . 

COMBAT AREA, CONDITION RED 



STARDATE 




3384 


CONDI TIOH 




*RED* 


QUADRANT 




3 , 2 


SECTOR 




1 , 5 


PHOTON to; 


RPEDOES 


9 


total eiE: 


RGY 


2744 


SHIELDS 




19 59 


KLINGONS : 


REMAINING 


6 



COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 2 

FROM" ENTERPRISE TO KLINGON BATTLE CRUSER 

DI RECTI ON = 5.7 5 

DISTANCE = 5 

COMMAND? LRS 

LONG RANGE SCAN FOR QUADRANT 3 , 2 



: 007 : 036 : 387 
: 085 : 103 : 006 
: 032 : 006 : 386 



COMMAND? TOR. 

PHOTON TORPEDO COURSE (1-9)? 5.75 

TORPEDO TRACK: 

2,4 

3,3 

3,2 

4 , 1 
*** KLINGON DESTROYED *** 
COMMAND? COM 
COMPUTER ACTIVE AMD AWAITING COMMAND? 3 

COMPUTER RECORD OF GALAXY FOR CUADRANT 3 , 

12 3 4 5 6 



*** 


~-K* 


*« 


*** 




*** 


»„ 


*** 


837 


836 


387 


*** 


«* 


«* 


*** 


*** 


335 


083 


306 


304 


085 


836 


805 


:!i A- * 


302 


836 


386 


SD3 


383 


888 


308 


*** 


888 


837 


385 


001 


834 


83 2 


833 


* -\- * 


*** 


«* 


*** 


«* 


«* 


«* 


,« 


«* 


*** 


«* 


*** 


*« 


*** 


;is s;s :(! 


*** 


*** 


«* 


*** 


»** 


*»* 


*„ 


*** 


*** 


*** 



COMMAND? NAV 
COURSE (3-9) ? 7 
WARP FACTOR (8-8) ? 4 

NOW ENTERING SAGITTARIUS II OUADRANT 



STARDATE 30 

CONDITION GR 

OUADRANT 7 

SECTOR 1 

PHOTON TORPEDOES 8 

TOTAL ENERGY 27 

SHIELDS 19 

KLINGONS REMAINING 5 
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COMMAND? LRS 

LONG RANGE SCAN FOR QUADRANT 7 - 2 



Later in the run .... 



: 003 : 


: 004 : 


004 : 


: 003 : 


: 003 : 


: 001 : 


: 017 : 


1 007 ! 


: 002 : 



COMMAND? NAV 
COURSE <0-9) ? 1 
WARP FACTOR <B-6>? 3 

NOW ENTERING ARCTURUS I QUADRANT 



STARDATE 


3006 


CONDITION 


GREEN 


QUADRAN T 


7,5 


SECTOR 


1 , 5 


PHOTON TORPEDOES 


8 


TOTAL ENERGY 


2666 


SHIELDS 


19 59 


KLINGONS REMAINING 


5 



COMMAND? LRS 

LONG RANGE SCAN FOR QUADRANT 7 , 5 



: 001 : 


: 001 : 


: 005 : 


: 003 : 


: 007 : 


: 006 : 


: 0B8 ! 


! 007 : 


: 005 : 



COMMAND? NAV 

COURSE C0-9)? 1 

WARP FACTOR C0-8>? 2 

NOV! ENTERING ARCTURUS III QUADRANT ■ 



STARDATE 3007 

CONDITION GREEN 

QUADRANT 7 , 7 

SECTOR 1 , 5 

PHOTON TORPEDOES 8 

TOTAL ENERGY 2640 

SHIELDS 19 59 

KLINGONS REMAINING 5 



COMMAND? LR5 

LONG RANGE SCAN FOR QUADRANT 7 



: 005 : 


002 : 


034 : 


: 006 : 


005 : 


302 : 


: 005 : 


: 008 : 


003 : 



COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 



COMPUTER RECORD OF GALAXY FOR QUADRANT 7*7 
12 3 4 5 6 7 



*** 


*** 


*** 


*** 


*** 


*** 


*** 


*** 


337 


006 


007 


*** 


*** 


*** 


*** 


*** 


005 


003 


306 


304 


035 


006 


005 


*** 


032 


036 


306 


303 


003 


038 


038 


*** 


008 


007 


005 


001 


004 


002 


303 


+ ** 


003 


004 


004 


001 


001 


005 


032 


004 


003 


303 


001 


003 


307 


006 


305 


002 


017 


007 


002 


008 


007 


005 


008 


003 



COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 1 

STATUS REPORT: 
KLINGONS LEFT: 5 

MISSION MUST BE COMPLETED IN 18 STARDATES 
THE FEDERATION IS MAINTAINING 1 STARBASES IN THE GALAXY 



STATE OF REPAIR 



DEVICE 

WARP ENGINES 3 

SHORT RANGE SENSORS 3 

LONG RANGE SENSORS 3 

PHASER CONTROL, 

PHOTON TUBES 3 

DAMAGE CONTROL 

SHIELD CONTROL 

LIBRARY-COMPUTER 

COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 

DIRECTION/DISTANCE CALCULATOR: 

YOU ARE AT QUADRANT 7-7 SECTOR 1 

PLEASE ENTER 

INITIAL COORDINATES CX,Y>? 7.7 
FINAL COORDINATES <X,Y> ? 4.8 

DIRECTION = 2-66667 

DISTANCE = 3. 16228 

COMMAND? NAV 

COURSE (3-9) ? 2.66667 

WARP FACTOR C3~B>? 3-16228 



NOW ENTERING SI III US I QUADRANT 
COMBAT AREA CONDITION RED 



STARDATE 


3GI2.6 


CONDITION 


*RED* 


QUADRAN T 


1 , 5 


SECTOR 


5 - 2 


PHOTOM TORPEDOES 


5 


TOTAL ENERGY 


1741 


SHIELDS 


891 



KLINGONS REMAINING 2 



COMMAND? TOR 

PHOTON TORPEDO COURSE (1-9)? 1 

TORPEDO TRACK: 

5 , 3 
*** KLINGON DESTROYED *** 
COMMAND? NAV 
COURSE C0-9) ? 5 
WARP FACTOR (0-8) ? 1 
DAMAGE CONTROL REPORT: LIBRARY-COMPUTER REPAIR COMPLETED. 

NOW ENTERING AH TARES I" EUADrA.IT . . . 

COMBAT AREA CONDITION RED 



STARDATE 


3013. 


CONDI TI ON 


* RED* 


QUADRANT 


1 , 4 


SECTOR 


5 , 2 


PHOTON TORPEDOES 


4 


TOTAL ENERGY 


1721 


SHIELDS 


891 



KLINGONS REMAINING 1 



COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 3 

FROM ENTERPRISE TO STARBASE: 
DIRECTION - 8.4 
DI STANCE = 5.S3095 
COMMAND? NAV 
COURSE (3-9) ? 0.4 
WARP FACTOR C0-8)? .583095 
154 UNIT HIT ON ENTERPRISE FROM SECTOR 3 , 3 
< SHI ELDS DOWN TO 737 UNITS* 
DAMAGE CONTROL REPORTS 'LONG RANGE SENSOP.S DAMAGED EY THE HIT' 
DAMAGE CONTROL REPORT: LONG RANGE SENSOP.S REPAIR COMPLETED. 
WAR? ENGINES SHUT DOWN AT SECTOR 7 , 6 DUE TO BAD HAVAGATI OH 
SHIELDS DROPPED FOR DOCKING PURFOSES 



STARDATE 




3014. I 


CONDITION 




DOCKED 


QUADRANT 




1 , 4 


SECTOR 




7 , 6 


PHOTON TORPEDOES 




IB 


TOTAL ENERGY 




3033 


SHIELDS 




3 


KLINGONS REMAlNIi 


TG 


1 



COMMAND? DAM 

DEVI C E 

WAIP ENGINES 

SHORT IM1SE SENSORS 

LONG RANGE SENSORS 

PHASER CONTROL 

PHOTON TUBES 

DAMAGE CONTROL 

SHIELD CONTROL 

LIBRARY-COMPUTER 



STATE OF REPAIR 



.48 
. 18 



COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 



THE GALAXY 



AN TARES 


SIRIUS 


RIG EL 


DENEB 


PROCYOH 


CAPELLA 


VEGA 


BETELGEUSE 


CAN OPUS 


AL DEBARAN 


ALTAI R 


REGULUS 


SAGITTARIUS 


ARCTURUS 


POLLUX 


SPICA 



COMMAND? PHA 

PHASERS LOCKED ON TARGET; ENERGY AVAILABLE = 3033 UNITS 

NUMBER OF UNITS TO FIRE? 2939 

1415 UNIT HIT ON KLINGON AT SECTOR 3-3 
*»* KLINGON DESTROYED *** 

CONGHULATI ON, CAPTAIN! THE LAST KLINGON BATTLE CRUISER 
MENACING THE FEDERATION HAS. BEEN DESTROYED. 

YOUR EFFICIENCY RATING IS 321.9 11 



THE FEDERATION IS IN NEED OF A NEW STARSHIP COMMANDER 
FOR A SIMILAR. MISSION — IF THERE IS A VOLUNTEER, 
LET HIM STEP FORWARD AND BITER 'AYE'? NAY 
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Synonym 



A synonym of a word is another word 
(in the English language) which has the 
same, or very nearly the same, mean- 
ing. This program tests your 
knowledge of synonyms of a few 
common words. 

The computer chooses a word and 
asks you for a synonym. The computer 
then tells you whether you're right or 
wrong. If you can't think of a synonym, 
type "HELP" which causes a synonym 
to be printed. 

You may put in words of your choice 
in the data statements (510-600). The 
number following DATA in Statement 
500 is the total number of data 
statements. I n each data statement, the 
first number is the number of words in 
that statement. 

Can you think of a way to make this 
into a more general kind of CAI 
program for any subject? 

Walt Koetke of Lexington High 
School, Massachusetts created this 
program. 



SYNONYH 
CREATIVE COMPUTING M0RRIST0UN, NEU JERSEY 

A SYNONYH OF A UORD MEANS ANOTHER U0RD IN THE ENGLISH 

LANGUAGE UHICH HAS THE SAME OR VERY NEARLY THE SAME MEANINB. 

I CHOOSE A UORD — YOU TYPE A SYNONYM. 

IF YOU CAN'T THINK OF A SYNONYM, TYPE THE UORD 'HELP' 

AND I WILL TELL YOU A SYNONYM. 



UHAT IS A SYNONYM OF RED? HELP 
+»** A SYNONYM OF RED IS RUBY. 



UHAT IS A SYNONYM OF RED? SCARLET 



RIGHT 



UHAT IS A SYNONYM OF MODEL? FORM 
TRY AOAIN. 

UHAT IS A SYNONYH OF MODEL? HELP 
**** A SYNONYM OF MODEL IS PATTERN. 



UHAT IS A SYNONYM OF MODEL? PROTOTYPE 



GOOD! 



UHAT IS A SYNONYM OF SMALL? LITTLE 



GOOD! 



UHAT IS A SYNONYM OF SIMILAR? LIKE 
CORRECT 



UHAT IS A SYNONYM OF FIRST? START 
CORRECT 



UHAT IS A SYNONYM OF PIT? CAVE 

TRY AGAIN. 

UHAT IS A SYNONYM OF PIT? CAVERN 

TRY AGAIN. 

UHAT IS A SYNONYM OF PIT? HOLE 



RIGHT 



GOOD! 



UHAT IS A SYNONYM OF HOUSE? DUELLING 



GOOD! 



UHAT IS A SYNONYM OF PUSH? SHOVE 



UHAT IS A SYNONYM OF STOP? HALT 



HORRISTOUN, NEU JERSEY" 



CHECK 



UHAT IS A SYNONYM OF PAIN? HURT 
CHECK 

SYNONYM DRILL COMPLETED. 

2 PRINT TAB(3J);"SYN0NYM" 

4 PRINT TAB(I5);"CREATIVE COMPUTING 

6 PRINT: PRINT: PRINT 

10 DIM R»<5),U»<10>,L(30),R<30> 

20 R«(1)="RIGHT": R»<2)="C0RRECT": R»(3)="FIrtE": RSi «)="G0OE' " 

30 R*(5)="CHECK" 

70 C=0 

?0 PRINT "A SYNONYM OF A UORD MEANS ANOTHER UPRD IN THE ENGLISH" 

100 PRINT "LANGUAGE UHICH HAS THE SAME OR VERY NEARLY THE SAME"; 

110 PRINT " MEANING." 

130 PRINT "I CHOOSE A UORD - YOU TYPE A SYNONYM." 

140 PRINT "IF YOU CAN'T THINK OF A SYNONYM, TYPE THE UORD 'HELP'" 

145 PRINT "AND I UILL TELL YOU A SYNONYM.": PRINT 

150 RESTORE: C=C+1: READ N 

140 IF ON THEN 420 

170 N1=INT(RND(1)»N+1) 

174 IF R(N1)=1 THEN 170 

174 RCN1 )=t 

180 FOR 1=1 TO N1 

190 READ N2 

200 FOR J=1 TO N2 

210 READ UXJ) 

220 NEXT J 

230 NEXT I 

232 FOR J=1 TO N2: L(J)=J: NEXT J 

235 L(0)=N2: 6=1: PRINT 

237 L(G)=L(L(0)): L(0)=N2-1: PRINT 

240 PRINT " UHAT IS A SYNONYM OF ";U$(G>;: INPUT A« 

250 IF A»="HELP" THEN 340 

240 FOR K=1 TO N2 

270 IF G=K THEN 2?0 

2B0 IF AS=U»(K) THEN 320 

290 NEXT K 

300 PRINT " TRY AGAIN. ": GOTO 240 

320 PRINT R»(RND(1)*5+1): 00T0 150 

340 G1=INT(RND(1)*L(0)+1) 

.140 PRINT "»**» A SYNONYM OF ";U«<B>;» IS ";U»(L(G1 ) );".": PRINT 

370 L(G1)=L(L(0)): L(0)=L(0)-l: GOTO 240 

420 PRINT: PRINT "SYNONYM DRILL CONPLETto.": GOTO ??? 

500 DATA 10 

510 DATA 5, "FIRST", "START", "BEGINNING", "ONSET", "INITIAL" 

520 DATA 5, "SIMILAR", "ALIKE", "SAME", "LIKE", "RESEMBLING" 

530 DATA 5, "MODEL" , "PATTERN", "PROTOTYPE" , "STANDARD" , "CRITERION" 

540 DATA 5, "SMALL", "INSIGNIFICANT", "LITTLE", "TINY", "MINUTE" 

550 DATA 4, "STOP", "HALT", "STAY", "ARREST", "CHECK", "STANDSTILL" 

560 DATA 4, "HOUSE", "DUELLING", "RESIDENCE", "DOMICILE", "LODGING" 

545 DATA "HABITATION" 

570 DATA 7, "PIT", "HOLE", "H0LL0U","UELL", "GULF", "CHASH", "ABYSS" 

580 DATA 7, "PUSH", "SHOVE", "THRUST", "PROD", "POKE", "BUTT", "PRESS" 

570 DATA 4, "RED", "ROUGE", "SCARLET", "CRIMSON", "FLAME", "RUBY" 

400 DATA 7, "PAIN", "SUFFERING", "HURT", "MISERY", "DISTRESS", "ACHE" 

405 DATA "DISCOMFORT" 

m END 
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Target 



In this program, you are firing a 
weapon from a spaceship in 3- 
dimensional space. Your ship, the 
Starship Enterprise, is located at the 
origin (0,0,0) of a set of x,y,z coor- 
dinates. You will be told the ap- 
proximate location of the target in 3- 
dimensional rectangular coordinates, 
the approximate angular deviation 
from the x and z axes in both radians 
and degrees, and the approximate 
distance to the target. 

Given this information, you then 
proceed to shoot at the target. A shot 
within 20 kilometers of the target 
destroys it. After each shot, you are 
given information as to the position of 
the explosion of your shot and a 
somewhat improved estimate of the 
location of the target. Fortunately, this 
is just practice and the target doesn't 
shoot back. After you have attained 
proficiency, you ought to be able to 
destroy a target in 3 or 4 shots. 
However, attaining proficiency might 
take a while! 

The author is H. David Crockett of 
Fort Worth, Texas. 



ESTIHATED DISTANCE* 66498 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 250,170,46000 

RADIANS FR0H X AXIS = 4.36331 FROM Z AXIS = 2.94705 
SHOT IN FRONT OF TARSET 3631.37 KILOMETERS, 
SHOT TO LEFT OF TARGET 19131.1 KILOMETERS. 
SHOT BELOU TARGET 6081.76 KILOMETERS. 

APPR0X POSITION OF EXPLOSION: X=-3920.26 Y=-10770.3 Z'-64997.2 
DISTANCE FROM TARGET ' 20400.3 



ESTIMATED DISTANCE' 66499 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 260,155,66499 

RADIANS FR0H X AXIS = 4.53784 FROM Z AXIS = 2.70525 
SHOT IN FRONT Of TARGET 2470.88 KILOMETERS. 
SHOT TO LEFT OF TARGET 2224.05 KILOMETERS. 
SHOT BELOU TARGET 1352.85 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-48B0.76 Y=-27677.3 Z'-40248.3 
DISTANCE FROM TARGET = 3729.64 



ESTIMATED DISTANCE' 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 255,150,46499. 



RADIANS FROM X AXIS ' 4.45057 FROM Z AXIS ■ 2.61798 
SHOT BEHIND TARGET 1054.7 KILOMETERS. 
SHOT TO RIGHT OF TARGET 2215.73 KILOMETERS. 
SHOT ABOVE TARGET 1325.75 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-8406.33 Y=-32117.1 Z=-57589.7 
DISTANCE FROM TARGET = 2789.17 



ESTIMATED DISTANCE' 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 256,145,66499. 



TARGET 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



YOU ARE THE UEAPONS OFFICER ON THE STARSHIP ENTERPRISE 

AND THIS IS A TEST TO SEE HQU ACCURATE A SHOT YOU 

ARE IN A THREE-DINENSIONAL RANGE. YOU UILL BE TOLD 

THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION 

OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES, 

THE APPROXIMATE NUMDER OF DEGREES FROM THE X AND Z 

AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET. 

YOU UILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS 

DESTROYED! 



GOOD LUCK!! 



RADIANS FROH X AXIS = 4.46803 FROM Z AXIS = 2.53072 
SHOT BEHIND TARGET 1676.61 KILOMETERS. 
SHOT TO RIGHT OF TARGET 7108.41 KILOMETERS. 
SHOT ABOVE TARGET 4442.84 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-?228.24 Y=-37009.7 
DISTANCE FROM TARGET = 8548.64 



Z'-54472.6 



ESTIMATED DISTANCE' 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 256,147,66499 

RADIANS FROM X AXIS = 4.46803 FROH Z AXIS = 2.56562 
SHOT BEHIND TARGET 1211.02 KILOMETERS. 
SHOT TO RIGHT OF TARGET 5241.18 KILOMETERS. 
SHOT ABOVE TARGET 3145.04 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-8762.65 Y=-35142.5 Z=-55770.4 
DISTANCE FROH TARGET = 6231.19 



RADIANS FROH X AXIS = 4.46501 FROM Z AXIS ' 2.65935 

TARGET SIGHTED: APPROX COORDINATES X=-7551. 63 Y=-29901.3 r=-5B915.4 

ESTIMATED DISTANCE' 66490 ESTIMATED DISTANCE' 66499.2 

INPUT ANGLE DEVIATION FROH X, DEVIATION FROM Z, DISTANCE? 230,110,66000 INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE' 256,148,66499 



RADIANS FROM X AXIS = 4.01424 FROM Z AXIS ' 1.91985 
SHOT BEHIND TARGET 32314.7 KILOMETERS. 
SHOT TO RIGHT OF TARGET 17608 KILOMETERS. 
SHOT ABOVE TARGET 36342.5 KILOMETERS. 
APPROX POSITION OF EXPLOSION: X=-39866.4 Y=-47509.4 
DISTANCE FROM TARGET ' 51721 



Z=-22572.9 



RADIANS FROH X AXIS = 4.46803 FROH Z AXIS = 2.58308 
SHOT BEHIND TARGET 974.203 KILOMETERS. 
SHOT TO RIOHT OF TARGET 4291.42 KILOMETERS. 
SHOT ABOVE TARGET 2521.43 KILOMETERS. 
APPROX POSITION OF EXPLOSION: X=-8525.84 Y=-34192. 
DISTANCE FROM TARGET = 5071.78 



Z=-56394 
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ESTIMATED DISTANCE* 664V?. 2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROH Z, DISTANCE? 256,154,664V? 

RADIANS FROH X AXIS = 4.46803 FROH Z AXIS = 2.4878 
SHOT IN FRONT OF TARGET 4V8.672 KILOHETERS. 
SHOT TO LEFT OF TARGET 1615.52 KILOMETERS. 
SHOT BELOU TARGET 853.184 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-7052.?6 Y=-28285.8 Z=-5?768.6 
DISTANCE FROH TARGET » 18V3.81 



ESTIHATED DISTANCE' 664??. 2 
INPUT ANGLE DEVIATION FROH X, DEVIATION FROH Z, DISTANCE? 256,153,664?? 

RADIANS FROH X AXIS = 4.46803 FROH Z AXIS = 2.67034 
SHOT IN FRONT OF TARGET 247.38 KILOMETERS. 
SHOT TO LEFT OF TARGET 607.723 KILOMETERS. 
SHOT BELOU TARGET 335.316 KILOMETERS. 

APPROX POSITION OF EXPLOSION; X=-7304.25 Y=-2?2?3.4 Z=-5?250.7 
DISTANCE FROH TARGET ■ 736.85? 



ESTIHATED DISTANCE= 664??. 2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROH Z, DISTANCE? 256,152,664?? 

RADIANS FROH X AXIS = 4.46803 FROH Z AXIS » 2.6528? 
SHOT BEHIND TARGET 1.68652 KILOHETERS. 
SHOT TO RIGHT OF TARGET 3V1.156 KILOHETERS. 
SHOT ABOVE TARGET 200.602 KILOHETERS. 
APPROX POSITION OF EXPLOSION: X=-7553.32 Y=-302?2.5 
DISTANCE FROH TARGET = 43?. 5?? 



Z=-58714;S 



HORRISTOUN, NEU JERSEY" 



10 PRINT TAB (33); "TARGET" 

20 PRINT TAB(15);"CREATIVE COHPUTING 

30 PRINT: PRINT: PRINT 

100 R=1: R1=57.2?6: P=3.1415?2 

110 PRINT "YOU ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE" 

120 PRINT "AND THIS IS A TEST TO SEE HOU ACCURATE A SHOT YOU" 

130 PRINT "ARE IN A THREE-DIHENSIONAL RANGE. YOU UILL BE TOLD" 

140 PRINT "THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION" 

150 PRINT "OF THE TARGET IN THREE DIHENSIONAL RECTANGULAR COORDINATES," 

160 PRINT "THE APPROXIHATE NUHBER OF DEGREES FROH THE X AND Z" 

170 PRINT "AXES, AND THE APPROXIHATE DISTANCE TO THE TARGET." 

180 PRINT "YOU UILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS" 

1?0 PRINT "DESTROYED!": PRIHT: PRINT "GOOD LUCK!!": PRINT: PRINT 

220 A=RND(1)»2»P: B=RND(1 )»2»P: Q=INT(A*R1): U=INT(B*R1) 

260 PRINT "RADIANS FROH X AXIS ="JA;" FROH Z AXIS = ";B 

280 P1=100000*RND(1)+RND(1): X=SIN(B)*C0S(A)*P1 : Y=SIN(B)«SIN(A)*P1 

2?0 Z=C0S(B)»P1 

340 PRINT "TARGET SIGHTED: APPROX COORDINATES X=";X;" Y=";Y;" Z=";Z 

345 R=R+1: IF R>5 THEN 3?0 

350 ON R OOTO 355,360,365,370,375 

355 P3=INT(P1».05)»20: GOTO 3?0 

360 P3=INT(P1*.1)»10: GOTO 3V0 

365 P3=INT(P1*.5)»2: GOTO 3?0 

370 P3=INT(P1): GOTO 3?0 

375 P3=P1 

3?0 PRINT " ESTIMATED DISTANCE*" ;P3 

400 PRINT "INPUT ANGLE DEVIATION FROM X, DEVIATION FROH Z, DISTANCE"; 

405 INPUT A1,B1,P2 

410 PRINT: IF P2<20 THEN PRINT "YOU BLEU YOURSELF UP!!": GOTO 580 

420 A1=A1/R1: B1=B1/R1: PRINT "RADIANS FROH X AXIS ="JA1; 

425 PRINT "FROH Z AXIS = ";B1 

480 X1=P2»SIN(B1)*C0S(A1): Y1=P2*SIN(B1 )*SIN(A1 ) : Z1=P2*C0S(B1 ) 

510 D=((X1-X)*2+(Y1-Y)"2t(Z1-Z)-2)-(1/2) 

520 IF D>20 THEN 670 

530 PRINT: PRINT " * * * HIT * * * TARGET IS NON-FUNCTIONAL": PRINT 

550 PRINT "DISTANCE OF EXPLOSION FROH TARGET UAS";h;"KILOHETERS" 

570 PRINT: PRIHT "MISSION ACCOHPLISHED IN ";R;" SHOTS." 

580 R=0: FOR 1=1 TO 5: PRINT: NEXT I: PRINT "NEXT TARGET...": PRINT 

5?0 GOTO 220 

670 X2=X1-X: Y2=Y1-Y: Z2=Z1-Z: IF X2<0 THEN 730 

710 PRINT "SHOT IN FRONT OF TARGET";X2;"KIL0METERS.": OOTO 740 

730 PRINT "SHOT BEHIND TARGET";-X2;"KIL0HETERS." 

740 IF Y2<0 THEN 770 

750 PRINT "SHOT TO LEFT OF TARBET»;T2;"KIL0HETERS.": GOTO 780 

770 PRINT "SHOT TO RIGHT OF TARGET";-Y2;"KIL0HETERS." 

780 IF Z2<0 THEH 810 

7?0 PRINT "SHOT ABOVE TARBET";Z2;"KIL0HETERS.": OOTO 820 

810 PRINT "SHOT BELOU TARGET";-Z2;"KIL0HETERS." 

820 PRINT "APPROX POSITION OF EXPLOSION: X=";Xi;" Y=";Y1f" Z=";Z1 

830 PRINT " DISTANCE FROH TARGET *";D: PRINT: PRINT: PRINT: G0TO345 

??? END 
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3-D Plot 



3-D PLOT will plot thefamily of curves 
of any function. The function Z is 
plotted as "rising" out of the x-y plane 
with x and y inside a circle of radius 30. 
The resultant plot looks almost 3- 
dimensional. 

You set the function you want plotted 
in line 5. As with any mathematical plot, 
some functions come out "prettier" 
than others. Here are some that work 
nicely: 

5 DEF FNA (Z) = 30*EXP (-Z*Z/100) 
5 DEF FNA (Z) = SQR (900.01 -Z*Z) *.9-2 
5 DEF FNA (Z) = 30*(COS (Z/16) 2 
5 DEF FNA (Z) = 30-30*SIN (Z/18) 
5 DEF FNA (Z) = 30*EXP (-COS (Z/16) ) -30 

(Bessel function— Summerfeld's Integral' 
5 DEF FNA (Z) = 30*SIN (Z/10) 

The author of this amazingly clever 
program is Mark Bramhall of DEC. 



30 PLOT 
CREATIVE COHPUTIND NQRRISTOUN, NEM JERSEY 
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1 PRINT TAB(32);"3B PLOT" 

2 PRINT TAB(15);"CREATIVE COMPUTING H0RRIST0UN, NEU JERSEY" 

3 PRINT:PRINT:PRINT 

5 DEF FNA<Z>«304EXP(-ZaZ/l00> 

100 PRINT 

110 FOR X-30 TO 30 STEP 1.5 

120 L«0 

130 Y1«5aINT<SOR(?00-XaX>/5> 

140 FOR Y«YI TO -Y1 STEP -5 

150 Z=INT(25+FNAfS0R(X*X+YaY>>-.7*Y) 

140 IF Z<=L THEN 1V0 

170 L'Z 

180 PRINT TAB(Z);"a"; 

1?0 NEXT Y 

200 PRINT 

210 NEXT X 

300 END 
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3-D Tic -Tac -Toe 



3-D TIC-TAC-TOE is the game of tic- 
tac-toe in a 4x4x4 cube. You must get 4 
markers in a row or diagonal along any 
3-dimensional plane in order to win. 

Each move is indicated by a 3-digit 
number (digits not seperated by commas), 
with each digit between 1 and 4 inclusive. 
The digits indicate the level, column, and 
row, respectively, of the move. You can win 
if you play correctly; although, it is consid- 
erably more difficult than standard, two- 
dimensional 3x3 tic-tac-toe. 

This version of 3-D TIC-TAC-TOE is 
from Dartmouth College. 



TIC TAC TOE 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 

DO YOU UANT INSTRUCTIONS? YES 

THE GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE. 

EACH HOVE IS INDICATED BY A 3 DIGIT NUMBER, UITH EACH 

DIGIT BETUEEN I AND 4 INCLUSIVE. THE DIGITS INDICATE THE 

LEVEL, ROU, AND COLUMN, RESPECTIVELY, OF THE OCCUPIED 

PLACE. 

TO PRINT THE PLAYING BOARD, TYPE (ZERO) AS YOUR HOVE. 
THE PROGRAH MILL PRINT THE BOARD UITH YOUR HOVES INDI- 
CATED UITH A (Y), THE MACHINE'S HOVES UITH AN (M), AND 
UNUSED SQUARES UITH A ( ). 

TO STOP THE PROGRAM RUN, TYPE I AS YOUR HOVE. 
DO YOU UANT TO HOVE FIRST? YES 

YOUR HOVE? 122 

NACHINE HOVES TO lit 

YOUR HOVE? 112 

NACHINE HOVES TO 411 

YOUR HOVE? 412 

NACHINE HOVES TO 414 

YOUR MOVE? 212 

NICE TRY MACHINE MOVES TO 312 



YOUR HOVE? 

(M) (Y) ( ) ( ) 

( ) (Y) ( ) ( ) 

( ) ( ) ( ) ( ) 

( ) ( ) ( ) ( ) 

( ) (Y) < ) ( ) 
t ) ( ) ( ) ( ) 
( ) ( ) ( ) < ) 
( ) ( ) ( ) ( ) 

( ) (H) ( ) ( ) 
( ) ( > ( ) ( ) 
< ) ( ) ( ) ( ) 
( ) ( ) ( ) ( ) 



(M) (Y) < ) (M) 
( ) ( ) ( ) ( ) 
( ) ( ) (" ) ( ) 
( ) ( ) ( ) ( ) 



YOUR HOVE? 442 

NACHINE NOVES TO 114 

YOUR HOVE? 214 

HACHINE HOVES TO 213 , AND UINS AS FOLLOWS 

411 312 213 114 
DO YOU UANT TO TRY ANOTHER GAHE? NO 
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LIST 

50 PRINT CHRS(26t:UIDTH 80 

100 PRINT TAB<33);"QUBIC":PRINT 

110 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 

120 PRINT:PRINT:PRINT 

210 PRINT "DO YOU UANT INSTRUCTIONS"; 

220 INPUT CI 

230 IF LEFTJ(C*,1>="N" THEN 315 

240 IF LEFT»(C»,1)="Y" THEN 245 

250 PRINT "INCORRECT ANSUER. PLEASE TYPE 'YES'' OR "NO " ; 

240 GOTO 220 

245 PRINT 

270 PRINT "THE GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE." 

280 PRINT "EACH HOVE IS INDICATED BY A 3 DIBIT NUMBER, UITH EACH" 

290 PRINT "DIGIT BETUEEN 1 AND 4 INCLUSIVE. THE DIBITS INDICATE THE" 

300 PRINT "LEVEL, ROU, AND COLUHN, RESPECTIVELY, UF THE OCCUPIED" 

305 PRINT "PLACE. " 

304 PRINT 

307 PRINT "TO PRINT THE PLAYING BOARD, TYPE (ZERO) AS YOUR MOVE." 

308 PRINT "THE PROORAH UILL PRINT THE BOARD UITH YOUR MOVES INDI-" 
30? PRINT "CATED UITH A (Y), THE HACHINE'S HOMES WITH AN <M) , AND" 

310 PRINT "UNUSED SQUARES UITH A ( )." 

311 PRINT 

312 PRINT "TO STOP THE PROORAH RUN, TYPE 1 AS YOUR MOVE." 

313 PRINT:PRINT 

315 DIH X(64),L(76>,H(74,4!,Y(14) 

320 FOR I = 1 TO 14 

330 READ Y(I) 

340 NEXT I 

350 FOR 1=1 TO 74 

340 FOR J = 1 TO 4 

370 READH(I,J) 

380 NEXT J 

390 NEXT I 

400 FOR I = 1 TO 44 

410 LET X (I) =0 

420 NEXT I 

430 LET 2=1 

440 PRINT "DO YOU UANT 10 HOVE FIRST"; 

450 INPUT S» 

440 IF LEFTt(S»,l)="N" THEN 430 

470 IF LEFT»(S*,1)="Y" THEN 500 

480 PRINT "INCORRECT ANSWER. PLEASE TYPE YES' OR 'NO'."; 

490 GOTO 450 

500 PRINT " " 

510 PRINT "YOUR HUVt"; 

520 INPUTJ1 

521 IF J1 =1 THEN 2770 

522 IF J1O0THEN525 

523 OOSUB 2550 

524 GOTO5O0 

525 IFJK111THEN2750 
524 IFJ1M44THEN2750 
530 GOSUB 2500 

540 LETK1=INT(J1/100> 

550 LET J2=(J1-K1*1O0) 

540 LET K2=INKJ2/10> 

570 LET K3 = J1 - K1HO0 -K 2* 1 

580 LET N=14*K1t4*K2+K3-20 

590 IF X(H!=0 THEN 420 

600 PRINT "THAI SQUARE IS USED, FRY AGAIN." 

610 GOTO 500 

620 LET X(H)=1 

630 GOSUB 1440 

640 J=l 

650 1=1 

640 IF J=1 THEN 720 

670 IF J=2 THEN 790 

680 IF J=3 THEN 930 

690 1 = 1 + 1: IF K=74 THEN 440 

.'00 J=J+1: IF J<=3 THEN 450 

710 OOTO 1300 

720 IF LUK.M THEN 690 

730 PRINT "YOU UIH AS FULLOUS"; 

740 FOR J=l TO 4 

750 LET H=M(I,J) 

740 GOSUB 1570 

770 NEXT J 

780 GOTO 1490 

790 IF L(I)«15 THEN 690 

800 FOR J=l TO 4 

810 LET N=H(I,J) 

820 IF X(HK>0 THEN 860 

830 LET X(M)=5 

840 PRINT "MACHINE HOVES 10"; 

850 GOSUB 1570 

840 NEXT J 

870 PRINT ", AND WINS AS FOLLOWS" 

880 FOR J=l TO 4 

890 LET H=H(I,J) 

900 GOSUB 1570 



910 NEXT J 

920 GOTO 1490 

930 IF L(IK>3 THEN 690 

940 PRINT "NICE TRY. HACHINE MOVES TO"; 

950 FOR J=l TO 4 

940 LET n=N(I,J) 

970 IF X(H)O0 THEN 1010 

980 LET X(H)=5 

990 OOSUB 1570 

1000 GOTO 500 

1010 NEXT J 

1020 GOTO 13O0 

1030 1=1 

1040 LET LU>=X(H(I,1>)+X(M(I,2>! + X<HU,3>)+X(MU,4)) 

1050 LET L = L(I) 

1040 IF L <2 THEN 1130 

1070 IF L>=3 THEN 1130 

1080 IF L>2 THEN 2230 

1090 FOR J = 1 TO 4 

1100 IF X(H(I,J)K>0 THEN 1120 

1110 LEI X(H(I,J))=!/8 

1120 NEXT J 

1130 1=1+1 : IF I<=74 THEN 1040 

1140 GOSUB 1440 

1150 1=1 

1140 IF L(I)=1/2 THEN 2360 

1170 IF LU> = 1+3/8 THEN 2340 

1180 1=1+1: IF K.=74 THEN 1140 

I 1 90 GOTO 1830 

1200 LET Z - 1 

1210 IF X(Y(2))=0 THEN 1250 

1220 LET Z=Z+1 

1230 IF Z<>17 THEN 1210 

1240 GOTO 1720 

1250 LET H=Y(Z) 

1240 LET X(M)=5 

1270 PRINT "MACHINE MOVES TO"; 

1280 GOSUB 1570 

1290 OOTO 500 

1300 LET X=X 

1310 1=1 

1320 LET L(I)=X(M(I,1))+X(M(I,2})+X(H(I,3))+X(M(I,4)) 

1330 LET L=L(I) 

1340 IF L<10 THEN 1410 

1350 IF L>=11 THEN 1410 

1340 IF LMO THEN 2230 

1370 FOR J=l 10 4 

1380 IF X(M(I,J>U:.0 THEN 1400 

1390 LET X(H(I,J))=1/8 

1400 NEXT J 

1410 1=1+1: IF It-76 THEN 1320 

1420 GOSUB 1440 

1430 1=1 

1440 IF L(I)=.5 THEN 2360 

1450 IF L(I)=5+3/8 THEN 2360 

1460 1=1+1: IF I< = ?6 THEN 1440 

1470 GTJSTJB 25OT 

1480 GOTO 1030 

1490 PRINT " " 

1500 PRINT "DO YUU WANT 10 TRY ANOTHER GAME"; 

1510 INPUf X» 

1520 IF LEFTS(X*,1!="Y" THEN 400 

1530 IF LEFT»(X»,1)="N" 



THEN 1560 

1540 PRINT "INCORRECT ANSUER. PLEASE TYPE 'YES OR 
1550 GOTO 1510 
1560 RUN "MENU" 
1570 LET K1=INT((H-1)/14)+1 
1580 LET J2=«-16*(K1-1> 
1590 LET K2=INT{(J2-1)/4)+1 
1400 LET K3=H-(K1-1)*14-(K2-1>*4 
1410 LET H=K1*100+K2*10+K3 
1420 PRINT N; 
1430 RETURN 
1440 FOR S=1 10 76 
1650 LET J1 = M(S,1) 
1440 LET J2=H(S,2) 
1470 LET J3=M(S,3! 
1480 LET J4=H(S,4) 

1490 LET L(S)=X(J1)+X(J2)+X(J3)+X(J41 
1700 NEXT S 
1710 RETURN 
1720 FOR 1=1 TO 64 
1730 IF X(IK>0 THEN 1800 
1740 LET X(I)=5 
1750 LET H=I 

1740 PRINT "MACHINE LIKES"; 
1770 GOSUB 1570 
1780 PRINT " " 
1790 GOTO 500 
1800 NEXT I 
1810 PRINT "THE GAME IS A DRAW." 



NO' 
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1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 



GOTO 1490 

FOR K=1 TO 18 

LET P=0 

FOR I=4*K-J TO 4*K 



FOR J=1 TO 4 

LET P=P+X(N<I,J>> 

NEXT J 

NEXT I 

IF P<4 THEN 1940 

IF P<5 THEN 1970 

IF P<9 THEN 1940 

IF P<10 THEN 1970 

NEXT K 

GOSUB 2500 

GOTO 1200 

LET 5=1/8 

FOR I=4*K-3 TO 4*K 

GOTO 2370 

NEXT I 

LET S=0 

GOTO 1980 

DATA 1 ,49,52,4,13,6! ,64,16,22,39,23,38,26,42,27,43 

DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 

DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38 

DATA 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56 

DATA 57,58,59,60,61,62,63,64 

DATA1, 17, 33, 49, 5, 21, 37, 53, 9, 25, 41, 57, 13, 29, 45, 61 

DATA 2,18,34,50,6,22,38,54,10,26,42,58,14,30,46,62 

DATA 3,19,35,51,7,23,39,55,11,27,43,59,15,31,47,63 

DATA 4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64 

DATA 1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61 

DATA 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62 

DATA 3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63 

DATA4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, 60, 64 

DATA1, 6, 11, 16, 17, 22, 27, 32, 33, 38, 43, 48, 49, 54, 59, 64 

DATA 13,10,7,4,29,26,23,20,45,42,39,36,61,58,55,52 

DATA), 21, 41, 61, 2, 22, 42, 62, 3, 23, 43, 63, 4, 24, 44, 64 

DATA 49,37,25,13,50,38,26,14,51 ,39,27,15,52,40,28,16 

DATA 1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64 

DATA 49,34,19,4,53,38,23,8,57,42,27,12,61,46,31,16 

DATA 1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52 

FOR J=1 TO 4 

IF X(M(I,J)XM/8 THEN 2330 

LET X(M(I,J))=5 

IF L(I)<5 THEN 2290 

PRINT "LET'S SEE YOU BET OUT OF THIS: MACHINE MOVES TO": 

GOTO 2300 

PRINT "rOU FOX. JUST IN THE NICK OF TIME, MACHINE MOVES TO": 

LET H=HU,J) 

GOSUD 1570 



2320 


GOTO 500 


2330 


NEXT J 


2340 


PRINT "MACHINE CONCEDES THIS BANE.' 


2350 


GOTO 1490 


2360 


LET S=1/8 


2370 


IF I-INT(I/4)*4>1 THEN 2400 


2380 


LET A=1 


2390 


GOTO 2410 


2400 


LET A=2 


2410 


FOR J=fl TO 5-fl STEP 5-2*A 


2420 


IF X(M(I,J))=S THEN 2450 


2430 


NEXT J 


2440 


GOTO 2000 


2450 


LET X(M(I,J))=5 


2460 


LET n=H(I,J) 


2470 


PRINT "MACHINE TAKES"; 


2480 


GOSUB 1570 


2490 


GOTO 500 


2500 


FOR 1=1 TO 64 


2510 


IF XUJ01/8 THEN 2530 


2520 


LET X(I)=0 


2530 


NEXT I 


2540 


RETURN 


2550 


FOR XX=1 TO 9:LPRINT:NEXT:F0RI=1T04 


2560 


F0RJ=1T04 


2562 


F0RI1=1T0J 


2564 


LPRINT" "J 


2566 


NEXTI1 


2570 


FORK=1T04 


2600 


LET Q=16*It4*J+K-20 


2610 


!FX(Q)O0rHEN2630 


2620 


LPRINT"( ) ■•; 


2630 


IFXIQIO5THEN2650 


2640 


LPRINT"(H> "; 


2650 


IFXIQIO1THEN2660 


2655 


LPRINT"(Y) "; 


2660 


IF XI0KM/BTHEN2670 


2665 


LPRINT"! ) "; 


2670 


NEXTK 


2680 


LPRINT 


2690 


LPRINT 


2700 


NEX U 


2710 


LPRINT 


2720 


LPRINT 


2730 


NEXTI 


2735 


LPRINT CHRJU2) 


2740 


RETURN 


2750 


PRINI"INCORRECT MOVE, RETYPE IT—"; 


2760 


G0TO52O 


2770 


RUN "MENU" 
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fie f ac fee 



The game of tic-tac-toe hardly needs any 
introduction. In this one, you play versus 
the computer. Moves are entered by 
number: 

1 2 3 

4 5 6 

7 8 9 

If you make any bad moves, the com- 
puter will win; if the computer makes a bad 
move, you can win; otherwise, the game 
ends in a tie. 

A second version of the game is included 
which prints out the board after each move. 
This is ideally suited to a CRT terminal, 
particularly if you modify it to not print out 
a new board after each move, but rather 
use the cursor to make the move. 

The first program was written by Tom 
Koos while a student researcher at the 
Oregon Museum of Science and Industry; 
it was extensively modified by Steve North 
of Creative Computing. The author of the 
second game is Curt Flick of Akron, Ohio. 





TIC TAC TOE 




CREATIVE CONFUTING NORRISTOUN, 


NEU JERSEY 


THE BAKE BOARD 


IS NUHBEREDl 




1 2 3 






fl 9 4 






7 4 5 






COHPUTER HOVES 


9 




YOUR HOVE? 3 






COHPUTER HOVES 


4 




YOUR HOVET 8 






COHPUTER HOVES 


4 




YOUR HOVE? 7 






COHPUTER HOVES 


2 




AND UINS •»••««♦♦ 




COHPUTER HOVES 


9 




YOUR HOVET 5 






COHPUTER HOVES 


6 




YOUR HOVET 2 






COHPUTER HOVES 


8 




YOUR HOVET 4 






COHPUTER HOVES 


3 




YOUR HOVET 7 






COHPUTER HOVES 


1 




THE GAHE IS A DRAU 





!0 PRINT TAB(30)j"TIC TAC TOE" 

20 PRINT TAB(I5);"CREATIVE COHPUTINB HORRISTOUN, NEU JERSEY" 

30 PRINT:PRINTiPRINT 

50 REN 

100 REH THIS PR00RAH PLAYS TIC TAC TOE 

110 REH THE HACHINE GOES FIRST 

120 PRINT "THE BAHE BOARD IS NUHBERED:": PRINT 

130 PRINT "1 2 3": PRINT "8 9 4": PRINT "7 4 5" 

140 PRINT 

ISO REH 

140 REH 

170 REH 

180 DEE FNH(X)»X-6«INT(<X-1)/8) 

190 REH 

200 REH HAIH PR08RAH 

210 PRINT 

220 PRINT 

230 A"? 

240 H»A 

2S0 00SUB 450 

240 P»H 

270 B»FNH(P*1> 

280 H«B 

290 O0SUB 450 

300 Q'H 

310 IF 0»FNH(Bt4) THEN 340 

320 C*FNH<Bt4> 

330 H=C 

340 G0SUB 700 

350 SOTO 730 

340 C"FNH(B+2) 

370 H«C 

380 B0SUB 450 

390 R«H 

400 IF R=FNH(C+4) THEN 450 

410 D»FNH(C*4> 

420 H=D 

430 00SUB 700 

440 B0T0 730 

450 IF P/2<>INT(P/2) THEN 500 

440 D-FNHIC+?) 

470 H=D 

480 B0SUB 700 

490 GOTO 730 

500 D'FMKC+3) 

510 H»D 

520 60SUB 450 

530 S=H 

540 IF S=FNH(D*4) THEN 590 

550 E=FNH(D+4) 

540 H=E 

570 00SUB 700 

580 REH 

590 E»FNH(D+4) 

400 H«E 

410 00SUB 700 

420 PRINT "THE GAHE IS A DRAU" 

430 GOTO 210 

440 REH 

450 G0SUB 700 

440 PRINT "YOUR HOVE"; 

470 INPUT H 

480 RETURN 

700 PRINT "COHPUTER HOVES", "H 

710 RETURN 

720 REH 

730 PRIHT "AND UINS *«*«*•»»" 

740 80T0 210 

750 END 
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2 PRINT TAB(30>;"TIC-TAC-T0E" 

4 PRINT TAB<15);"CREATIVE COHPUTINE HORRISTOUN, NEU JERSEY" 

4 PRINT:PRINT:PRINT 

8 PRINT "THE BOARD IS NUHBERED:" 

10 PRINT '12 3" 

12 PRINT "454" 

14 PRINT " 7 8 ?" 

U PRINTiPRINT:PRIHT 

20 DIN S<9) 

30 INPUT'DO YOU UANT 'X' OR '0"';C» 

55 IFCI="X"THEN475 

40 PI="0":Q»«"X" 

100 6»-1:H=1:IFS(5)O0THEN103 

102 S(5)»~1:G0T01?5 

103 IFS<5)O1THEN104 

104 IFS(1)OOTHEN110 

105 SU>»-1:60T0195 

106 IFS(2)=1ANDS(1)«0THEN181 

107 IF S ( 4 > ° I AMDS ( I ) °0THEN1 8 1 

108 IFS(4)»IANB S(9)=0THEN189 
10? IFS<8)«1ANBS(9)=0THEN1B9 

110 IFG-1THENI12 

111 B0TO1I8 

112 J*3»IHT<<H-1)/3>+1 

113 IF3»INTUH-1)/3> + 1=HTHEHK=1 

114 IF3«INT<<H-1)/3)+2*HTHENK=2 

115 IF3»INT((N-1)/3)+3»HTHENK=3 
114 80T0120 

118 FORJ»1TO7STEP3sF0RK«1T03 
120 IFS(J)OBTHENI30 
122 IFS<Jt2)OBTHEN135 
124 IF8(Jt1)O0THEH150 
128 S(J+1>»-1:60T01?5 

130 IFS(J)=HTHEN150 

131 IFS<J*2K>GTHEN150 

132 IFS(J+1K>GTHEN150 

133 S<J)=-1:B0T0195 
135 IFS<J«K>0THEN13O 

134 IFS(J*1)OGTHEN150 
138 S<J+2>«-1:GDT01?5 
150 IFS(K)O6THEN160 
152 IFS(K*4)O0THEN145 
156 IFS<K*3)O0THEN170 
158 S<K+3>«-1:G0TO195 

160 IFS(K)=HTHEN170 

161 IFS(K+4)OGTHEN170 

162 IFS<K+3)OGTHEN170 

163 S<K>=~1:G0T0195 

165 IFS<K+4)O0THEN170 

166 IFS(K+3K>GTHEN170 
168 S<K*6)»-1:G0TO195 

170 G0T0450 

171 IFS(3)»GANDS<7)»0THEN187 

172 IFS(9)=GANDS<1>*0THEN181 

173 IFS(7)=GANDS(3)"0THEN183 

174 1FS<9)=0ANDS<1>"GTHENI89 

175 IFG»-ITHENG=1:H*- 1:GDT0110 
174 IFS(9)=1ANDS<3)=0THEN182 

177 FQRI«2T0?:IFS<I>O0TH£N17? 

178 SU)—1:G0T01?5 
17? NEXTI 

181 S(1)-1:ODT0193 

1B2 IFS(I)'1THEN177 

183 S(3)=-1:G0T0195 

187 S(7>— 1:0OT01?3 

18? S(?>=-1 

195 PRINT:PRINT"THE COMPUTER MOVES TO..." 

202 G0SUB1000 

205 G0T0500 

450 IFG=1THEN465 

455 IFJ»7ANDK=3THEN465 

460 NEXTK,J 

465 IFS(5)=GTHEN171 

467 60T0175 

475 P»="X":Q»="0" 

500 PRIHT:INPUT"UHERE DO YOU HOVE";H 

302 IF H*0 THENPRINT"THANKS FOR THE GAHE":G0T0 2000 

503 IFH>9THEN 506 

505 IFS(H)=0THEN5t0 

506 PRINT"THAT SQUARE IS OCCUPIE»"iPRINT:PRINT:GOT0500 
510 G=1:S(H)=t 

520 GOSUB 1000 

530 GOTO 100 

1000 PRINT:F0RI»1T09:PRINT" 

1012 PRINTQI" ";:GOT01020 

1014 IF SU1O0THEN 1018 

1014 PRINT" ";:G0T01020 

1018 PRINTPI" "; 

1020 IFIO3ANDIO4THEN1050 

1030 PRINT:PRINT" +---+ — 

1040 GOTO 1080 
1050 IFI=?THEH!080 
1060 PRINT"!"; 



:IFS(IK>-1THEH1014 



1080 


NEXTI:l 


1095 


FOR !• 


1100 


IFS(I) 


1105 


IFS(I) 


1110 


IFS(I) 


1112 


IFS(I) 


1115 


HEXTIsI 


1130 


IFS(I) 


1135 


IFSU)' 


1137 


IFS(I). 


1150 


NEXTUI 


1152 


NEXTIil 


1155 


IFSC5) 


1160 


IFS<1>< 


1165 


IFS(3>: 


1170 


RETURN 


1180 


IFG=-1 


1200 


PRINT"' 


1350 


PRINT" 


1400 


PRINT" 


2000 


END 



PRINTsPRINTiPRINT 

1T07STEP3 

<>S(H1)THEN1115 

OSU+2ITHEN1115 

■- 1THEN1350 

■=1THEN1200 

F0RI*1T03:IFS(IK>S(I+3)THEH115O 

OSU+4ITHEN1150 

•-1THEN1350 

=1THEN1200 

F0RI = 1T0?:1FSU)=0THEN1155 

G0T01400 

OGTHEN1170 

=GANDS<?>=GTHEN1180 

=GANDS(7>=OTHEN11BO 

THEN1350 

YOU BEAT HE!! GOOD GAME":GOT02000 
I UIN, TURI!EY!!!":G0TO2O00 
IT'S A DRAU. THANK YOU" 



TIC-TAC-TOE 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 



THE BOARO IS NUHBERED: 

I 2 3 

4 5 6 

7 8 ? 



UHERE 


DO 


YOU 


HOVE? 


7 


! 


| 


















! X ! 


X 






— t— 


--+- 








X ! 


1 









BO YOU UANT 'X' OR 'O'T X 
UHERE DO YOU HOVE? 5 



THE CBHPUTER HOVES TO.. 



I 



I 



! X ! 
I I 



• 10 
—♦—-♦-- 
1 X I X 

— + — +— 
X ! I 



THE COMPUTER HOVES TO.. 



! I 

♦ * 

! X ! 

— t ♦ 

! I 



UHERE DO YOU HOVET 6 



UHERE DO YOU HOVET 2 

1X10 

— t — ■» 

I X I X 
—♦---♦ — 

X I I 



THE COHPUTER MOVES TO. 



I 



I X I X 

-t — t 

I I 






1 


X 


1 








1 


X 


! 


X 


X 


1 





1 





THE COHPUTER HOVES TO. 

! ! 

1 + — 

I X ! X 

— + — ♦ — 

! I 



UHERE DO YOU HOVE? 9 

! X ! 

— t — t 

! X ! X 

1 — + 

X I ! X 



IT'S A DRAU. THANK YOU 
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lower 



This isasimulationof agameof logic 
that originated in the middle East. It is 
sometimes called Pharoah's Needles, 
but its most common name is the 
Towers of Hanoi. 

Legend has it that a secret society of 
monks live beneath the city of Hanoi. 
They possess three large towers or 
needles on which different size gold 
disks may be placed. Moving one at a 
time and never placing a larger on a 
smaller disk, the monks endeavor to 
move the tower of disks from the left 
needle to the right needle. Legend says 
when they have finished moving this 
64-disk tower, the world will end. How 
many moves will they have to make to 
accomplish this? If they can move 1 
disk per minute and work 24 hours per 
day, how many years will it take? 

In the computer puzzle you are faced 
with three upright needles. On the 
leftmost needle are placed from two to 
seven graduated disks, the largest 
being on the bottom and smallest on 
the top. Your object is to move the 
entire stack of disks to the rightmost 
needle. However, you may only move 
one disk at a time and you may never 
place a larger disk on top of a smaller 
one. 

In this computer game, the disks are 
referred to by their size — i.e., the 
smallest is 3, next 5, 7, 9, 11, 13, and 15. 
If you play with fewer than 7 disks 
always use the largest, i.e. with 2 disks 
you would use nos. 13 and 15. The 
program instructions are self- 
explanatory. Good luck! 

Charles Lund wrote this program 
while at the American School in the 
Hague, Netherlands. 



TOUERS 
CREATIVE CQHPUTING HORRISTOUN, NEU JERSEY 



TOMERS OF HANOI PUZZLE 

YOU MUST TRANSFER THE DISKS FROM THE LEFT TO THE RIBHT 
TOUER, ONE AT A TIKE, NEVER PUTTING A LAR6ER DISK ON A 
SHALLER DISK. 

HOU MANY DISKS DO YOU UANT TO HOVE (7 IS HAX1T 3 

IN THIS PROGRAM, UE SHALL REFER TO DISKS BY NUMERICAL CODE. 

3 URL REPRESENT THE SHALLEST DISK, 5 THE NEXT SIZE, 

7 THE NEXT, AND SO ON, UP TO IS. IF YOU DO THE PUZZLE UITH 

2 DISKS, THEIR CODE NAHES UOULD BE 13 AND IS. UITH 3 DISKS 

THE CODE NAMES UOULD BE 11, 13 AND 15, ETC. THE NEEDLES 

ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3. UE UILL 

START UITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO HOVE THEN 

TO NEEDLE 3. 

GOOD LUCK I 



••**•**•••• * 

************* * 

***»»♦*♦♦♦••**♦ • 

UHICH DISK UOULD YOU LIKE TO MOVE? 11 
PLACE DISK ON UHICH NEEDLE? 3 



« • 

* * 

*************** * 

UHICH DISK UOULD YOU LIKE TO HOVET 13 
PLACE DISK ON UHICH NEEDLE? 2 

* * 

* * 

* * 

* » 

* * 
*************** ************* 

UHICH DISK UOULD YOU LIKE TO HOVE? 11 
PLACE DISK ON UHICH NEEDLE? 2 



* 
* 

*********** 



* 
* 
* 
* 
* 
* 
*********** 



* *********** 

**»*»•»»»*♦»»♦» «»*»***«***»» 
UHICH DISK UOULD YOU LIKE TO HOVE? IS 
PLACE DISK ON UHICH NEEDLE? 3 



* *********** 

* ************* 
UHICH DISK UOULD YOU LIKE TO HOVE? 13 

THAT DISK IS BELOU ANOTHER ONE. MAKE ANOTHER 
UHICH DISK UOULD YOU LIKE TO MOVE? 11 
PLACE DISK ON UHICH NEEDLE? 1 

* -* 
» * 

* » 

* * 



*************** 
CHOICE. 



»******««* ************* 
UHICH DISK UOULD YOU LIKE TO HOVET 13 
PLACE DISK ON UHICH NEEDLE? 3 

* * 

• * 

• * 

• » 
*********** » 

UHICH DISK UOULD YOU LIKE TO HOVET It 
PLACE DISK ON UHICH NEEDLE? 3 

* * 

» ♦ 

• « 

* * 

* » 
CONGRATULATIONS!! 

YOU HAVE PERFORHED THE TASK IN 7 MOVES. 

TRY AGAIN (YES OR NO)? NO 
THANKS FOR THE GAHE! 



****»«**«****** 



************* 
*************** 



*********** 

•******••**«* 

•*****•****•**• 
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<=&&»*— 



10 PRINT TAB(33>;"T0UERS" 

20 PRINT TAB(15>J"CREATIVE COMPUTING NORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

?0 PRINT 

100 REH*»» INITIALIZE 

110 DIH T<7,3) 

120 E=0 

130 FOR D=1 TO 7 

140 FOR N»1 TO 3 

150 T(D,N)»0 

110 NEXT N 

170 NEXT D 

180 PRINT "TOUERS OF HANOI PUZZLE": PRINT 

200 PRINT "YOU HUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT" 

205 PRINT "TOUER, ONE AT A TINE, NEVER PUTTING A LARGER DISK ON A" 

210 PRINT "SNALLER DISK.": PRINT 

215 INPUT "HOU HANY DISKS DO YOU UANT TO HOME (7 IS HAX)";S 

220 PRINT 

230 H=0 

240 FOR 0=1 TO 7 

250 IF Q=S THEN 350 

240 NEXT Q 

270 E=E*1 

280 IF E>2 THEN 310 

290 PRINT "SORRY, BUT I CAN'T DO THAT JOB FOR YOU.": GOTO 215 

310 PRINT "ALL RIGHT, UISE GUY, IF YOU CAN'T PLAY THE GAME RIGHT, I'LL" 

320 PRINT "JUST TAKE HY PUZZLE AND GO HOME. SO LONG.": STOP 

340 REH ♦** STORE DISKS FROH SMALLEST TO LARGEST 

350 PRINT "IN THIS PROGRAM, UE SHALL REFER TO DISKS BY NUMERICAL CODE." 

355 PRINT "3 UILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE," 

360 PRINT "7 THE NEXT, AND SO ON, UP TO 15. IF YOU DO THE PUZZLE UITH" 

365 PRINT "2 DISKS, THEIR CODE NAMES UOULD BE 13 AND 15. UITH 3 DISKS" 

370 PRINT "THE CODE NAMES UOULD BE 1 1 , 13 AND 15, ETC. THE NEEDLES" 

375 PRINT "ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3. UE UILL" 

380 PRINT "START UITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE THEM" 

305 PRINT "TO NEEDLE 3." 

390 PRINT: PRINT "GOOD LUCKI": PRINT 

400 Y=7: D=15 

420 FOR X=S TO 1 STEP -1 

430 T(Y,H=D: D=D-2: Y=Y-1 

440 NEXT X 

470 GOSUB 1230 

480 PRINT "UHICH DISK UOULD YOU LIKE TO MOVE";:E*0 

500 INPUT D 

510 IF <D-3>»<D-5>*(D-7)*<D-9>»(D-11)»<D-13>*(D-15>=0 THEN 580 

520 PRINT "ILLEGAL ENTRY... YOU MAY ONLY TYPE 3,5,7,9,11,13, OR 15." 

530 E=E+1: IF E>! THEN 5*0 

550 GOTO 500 

540 PRINT "STOP UASTINO HY TIME. BO BOTHER SOMEONE ELSE."" STOP 

580 REM «*» CHECK IF REQUESTED DISK IS BELOU ANOTHER 

590 FOR R"1 TO 7 

400 FOR C-1 TO 3 

410 IF TIR.O-D THEN 640 

420 NEXT C: NEXT R 

440 FOR 0=R TO 1 STEP -1 

445 IF T(O,C)«0 THEN 460 

450 IF TIB.CXD THEN 480 

460 NEXT 

470 GOTO 700 

480 PRINT "THAT DISK IS BELOU ANOTHER ONE. MAKE ANOTHER CHOICE." 

690 GOTO 480 

700 E*0 



705 INPUT "PLACE DISK ON UHICH NEEDLE";N 

730 IF <N-1)»<N-2)»<N-3>=0 THEN 800 

735 E=E*1 

740 IF E>1 THEN 780 

750 PRINT "I'LL ASSUME YOU HIT THE URONG KEY THIS TIME. BUT UATCH IT," 

760 PRINT "I ONLY ALLOU ONE MISTAKE.": OOTO 705 

780 PRINT "I TRIED TO UARN YOU, BUT YOU UOULDN'T LISTEN." 

790 PRINT "BYE BYE, DIG SHOT.": STOP 

800 FOR R=1 TO 7 

810 IF T(R,N)<>0 THEN 840 

820 NEXT R 

830 GOTO 880 

835 REN *»* CHECK IF DISK TO BE PLACED ON A LARGER ONE 

840 IF D<T(R,N) THEN 880 

850 PRINT "YOU CAN'T PLACE A LARGER DISK ON TOP OF A SMALLER ONE," 

860 PRINT "IT MIGHT CRUSH IT!": PRINT "NOU THE, "j:00TO 480 

875 REM »»» MOVE RELOCATED DISK 

880 FOR V»1 TO 7: FOR U=1 TO 3 

900 IF T(V,U)=D THEN 930 

910 NEXT U: NEXT V 

925 REM *»* LOCATE EMPTY SPACE ON NEEDLE N 

930 FOR U=1 TO 7 

940 IF T(U,N)<>0 THEN 970 

950 NEXT U 

960 U=7: GOTO 980 

965 REM *»* MOVE DISK AND SET OLD LOCATION TO 

970 U=U-I 

980 T(U,N)=T(V,U): T(V,U1=0 

995 REM »** PRINT OUT CURRENT STATUS 

1000 GOSUB 1230 

1018 REM *»« CHECK IF DONE 

1020 H=H*1 

1030 FOR R=l TO 7: FOR C=1 TO 2 

1050 IF T<R,C)O0 THEN 1090 

1060 NEXT C: NEXT R 

10BO GOTO 1120 

1090 IF M<=128 THEN 480 

1100 PRINT "SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE MORE THAN" 

1110 PRINT "128 MOVES.": STOP 

1120 IF M02-S-1 THEN 1140 

1130 PRINT "CONGRATULATIONS!!" 

1140 PRINT "YOU HAVE PERFORMED THE TASK IN";N;"HOVES." 

1150 PRINT: PRINT "TRY AGAIN (YES OR NO)";: INPUT A» 

1160 IF A»="NO" THEN 1390 

1170 IF A»="YES" THEN 90 

1180 PRINT: PRINT "'YES' OR 'NO' PLEASE";: INPUT A»: GOTO 1160 

1230 REM »»* PRINT SUBROUTINE 

1240 FOR K=1 TO 7 

1250 Z=10 

1260 FOR J=1 TO 3 

1270 IF T(K,J)=0 THEN 1330 

1280 PRINT TAB(Z-INT(T(K,J>/2>>; 

1290 FOR V=1 TO T(K,J) 

1300 PRINT "*"; 

1310 NEXT V 

1320 GOTO 1340 

1330 PRINT TAB(Z);"*"; 

1340 Z=Zt21 

1350 NEXT J 

1360 PRINT 

1370 NEXT K 

1380 RETURN 

1390 PRINT: PRINT "THANKS FOR THE GAME!": PRINT: END 
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frain 



■w.. 




TRAIN is a program which uses the 
computer to generate problems with 
random initial conditions to teach 
about the time-speed-distance 
relationship (distance = rate x time). 
You then input your answer and the 
computer verifies your response. 

TRAIN is merely an example of a 
student-generated problem. Maximum 
fun (and benefit) comes more from 
writing programs like this as opposed 
to solving the specific problem posed. 
Exchange your program with others — 
you solve their problem and let them 
solve yours. 

TRAIN was originally written in 
FOCAL by one student for use by 
others in his class. It was submitted to 
us by Walt Koetke, Lexington High 
School, Lexington, Mass. 

TRAIN 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 



TIME - SPEED DISTANCE EXERCISE 

A CAR TRAVELING 34 HPH CAN HAKE A CERTAIN TRIP IN 
It HOURS LESS THAN A TRAIN TRAVELING AT 36 HPH. 

HOU LONG DOES THE TRIP TAKE BY CART 23 

GOOD! ANSUER UITHIN 4 PERCENT. 

CORRECT ANSUER IS 22 HOURS. 

ANOTHER PROBLEN (YES OR NO)? YES 

A CAR TRAVELING 40 NPH CAN HAKE A CERTAIN TRIP IN 
14 HOURS LESS THAN A TRAIN TRAVELING AT 34 HPH. 

HOU L0N6 DOES THE TRIP TAKE BY CART 20 

SORRY. YOU UERE OFF BY 297 PERCENT. 

CORRECT ANSUER IS 79.3333 HOURS. 

ANOTHER PROBLEN (YES OR NO)? YES 

A CAR TRAVELING 47 HPH CAN HAKE A CERTAIN TRIP IN 
16 HOURS LESS THAN A TRAIN TRAVELING AT 22 HPH. 

HOU LONG DOES THE TRIP TAKE BY CAR? 14 

GOOD! ANSUER UITHIN 1 PERCENT. 

CORRECT ANSUER IS 14.08 HOURS. 

ANOTHER PROBLEN (YES OR NO)? NO 



1 PRINT TAB(33);"TRAIN" 

2 PRINT TAB(15);"CREATIVE COHPUTING HORRISTOUN, NEU JERSEY" 

3 PRINT: PRINT: PRINT 

4 PRINT "TINE - SPEED DISTANCE EXERCISE": PRINT 
10 C»INT(25»RND(1))+40 

IS D=INTU5*RND(l>>+5 

20 T*INT(19»RND(1))t20 

25 PRINT " A CAR TRAVELINO";C;'HPH CAN HAKE A CERTAIN TRIP IN" 

30 PRINT D;"H0URS LESS THAN A TRAIN TRAVELING AT"JT;"HPH." 

35 PRINT "HOU LONG DOES THE TRIP TAKE BY CAR": 

40 INPUT A 

45 V=D»T/(C-T) 

50 E=INT(ABS((V-A)*100/A)t.5> 

55 IF E>5 THEN 70 

40 PRINT "GOOD! ANSUER UITHIN" ;E; "PERCENT." 

65 GOTO SO 

70 PRINT "SORRY. YOU UERE OFF BY";E;"PERCENT." 

80 PRINT "CORRECT ANSUER IS";V;"H0URS." 

70 PRINT 

95 PRINT "ANOTHER PROBLEH (YES OR NO)"; 

100 INPUT A» 

105 PRINT 

110 IF A»«"YES" THEN 10 

99? END 
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Trap 



This is another in the family of "guess 
the mystery number" games, In TRAP 
the computer selects a random number 
between I and 100 (or other limit set in 
statement 20) . Your object is to find the 
number. On each guess, you enter 2 
numbers trying to trap the mystery 
number between your two trap 
numbers. The computer will tell you if 
its number is larger or smaller than 
your trap numbers or if you have 
trapped the number. 

To win the game, you mustguessthe 
mystery number by entering it as the 
same value for both of your trap 
numbers. You get 6 guesses (this 
should be changed in statement 10 if 
you change the guessing limit in 
statement 20). 

After you have played GUESS, 
STARS, and TRAP, compare the 
guessing strategy you have found best 
for each game. Do you notice any 
similarities? What are the differences? 
Can you write a new guessing game 
with still another approach? 

TRAP was suggested by a 10-year 
old when he was playing GUESS. It was 
originally programmed by Steve Ul- 
Iman and extensively modified into its 
final form by Bob Albrecht of People's 
Computer Co. 



TRAP 
CREATIVE COHPUTING HORRISTOUN, NEU JERSEY 

IHSTRUCTIONST YES 

I AH THINKING OF A NUMBER BETUEEN 1 AND 100 
TRY TO GUESS HY NUHBER. ON EACH GUESS, 
YOU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP 
HY NUHBER BETUEEN THE TU0 NUMBERS. I MILL 
TELL YOU IF YOU HAVE TRAPPED MY NUHBER, IF HY 
NUHBER IS LAR6ER THAN YOUR TUO NUMBERS, OR IF 
HY NUHBER IS SHALLER THAN YOUR TUO NUHBERS. 
IF YOU UANT TO GUESS ONE SINGLE NUHBER, TYPE 
YOUR 6UESS FOR BOTH YOUR TRAP NUHBERS. 
YOU GET 6 GUESSES TO GET HY NUHBER. 

GUESS 8 1 T 25,75 

YOU HAVE TRAPPED HY NUMBER. 

GUESS II 2 ? 40,40 

MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS. 

GUESS 8 3? 30,37 

YOU HAVE TRAPPED HY NUHBER. 

GUESS M! 34,36 

YOU HAVE TRAPPED NY NUMBER. 

GUESS 8 5? 35,33 

MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS. 



GUESS 8 6? 34,34 
YOU GOT III I! 

TRY AGAIN. 



GUESS II 1 ? 30,80 

YOU HAVE TRAPPED HY NUHBER. 

GUESS 12? 50,60 

HY NUHBER IS SHALLER THAN YOUR TRAP NUMBERS. 

GUESS 13? 35,45 

HY NUHBER IS SHALLER THAN YOUR TRAP NUHBERS. 

GUESS 8 4? 32,34 

YOU HAVE TRAPPED HY NUHBER. 

OUESS 8 5? 33,33 

MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS. 

GUESS 8 6? 32,32 
YOU 60T IT!!! 

1 PRINT TAB(34);"TRAP" 

2 PRINT TAB(I5);"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

3 PRINT:PRINT:PRINT 
10 0=6 

20 N=100 

30 REH-TRAP 

40 REM-STEVE ULLMAN, 8-1-72 

50 PRINT "INSTRUCTIONS"; 

60 INPUT Z» 

70 IF LEFTI(ZI,1K>"Y" THEN 180 

80 PRINT *I AN THINKING OF A NUHBER BETUEEN 1 AND";N 

VO PRINT "TRY TO GUESS HY NUHBER. ON EACH GUESS," 

100 PRINT "YOU ARE TO ENTER 2 NUHBERS, TRYING TO TRAP" 

110 PRINT "MY NUHBER BETUEEN THE TUO NUMBERS. I UILL" 

120 PRINT "TELL YOU IF YOU HAVE TRAPPED HY NUMBER, IF MY" 

130 PRINT "NUHBER IS LARGER THAN YOUR TUO NUHBERS, OR IF" 

140 PRINT "HY NUMBER IS SNALLER THAN YOUR TUO NUMBERS." 

150 PRINT "IF YOU UANT TO GUESS ONE SINGLE NUMBER, TYPE" 

160 PRINT "YOUR GUESS FOR BOTH YOUR TRAP NUMBERS." 

170 PRINT "YOU GET";G;"GUESSES TO GET MY NUHBER." 

180 X=INT(N*RN0(1))t1 

1?0 FOR 0*1 TO G 

200 PRINT 

210 PRINT "GUESS 8";0; 

220 INPUT A,B 

230 IF A=B AND X=A THEN 400 

240 IF A <= B THEN 260 

250 G0SUB 360 

260 IF A <= X AND X <* B THEN 320 

270 IF X<A THEN 300 

280 PRINT "HY NUHBER IS LARGER THAN YOUR TRAP NUHBERS." 

2?0 GOTO 330 

300 PRINT "HY NUHBER IS SHALLER THAN YOUR TRAP NUHBERS." 

310 GOTO 330 

320 PRINT "YOU HAVE TRAPPED HY NUHBER." 

330 NEXT Q 

340 PRINT "SORRY, THAT'S";G;"OUESSES. NUMBER UAS";X 

350 GOTO 410 

360 R=A 

370 A=B 

380 B<=R 

3?0 RETURN 

400 PRINT "YOU GOT IT I II" 

410 PRINT 

420 PRINT "TRY AGAIN." 

430 PRINT 

440 GOTO 180 

450 END 
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2311 itches 



In the game of twenty-three matches, 
you start with 23 matches lying on a 
table. On each turn, you may take 1 , 2, 
or 3 matches. You alternate moves with 
the computer and the one who has to 
take the last match loses. 

The easiest way to devise a winning 
strategy is to start at the end of the 
game. Since you wish to leave the last 
match to your opponent, you would 
like to have either 4, 3, or 2 on your last 
turn so you can take away 3, 2, or 1 and 
leave 1. Consequently, you would like 
to leave your opponent with 5 on his 
next to last turn so, no matter what his 
move, you are left with 4, 3, or 2. Work 
this backwards to the beginning and 
you'll find the game can effectively be 
won on the first move. Fortunately, the 
computer gives you the first move, so if 
you play wisely, you can win. 

After you've mastered 23 Matches, 
move on to BATNUM and then to NIM. 

This version of 23 Matches was 
originally written by Bob Albrecht of 
People's Computer Company. 



23 HATCHES 
CREATIVE COHPUTINO HQRRISTOUN, NEU JERSEY 

THIS IS A GAME CALLED '23 HATCHES'. 

UHEN IT IS TOUR TURH, YOU HAT TAKE ONE, TUO, OR THREE 
MATCHES. THE OBJECT OF THE OAHE IS NOT TO HAVE TO TAKE 
THE LAST HATCH. 

LET'S FLIP A COIN TO SEE UHQ GOES FIRST. 
IF IT CONES UP HEADS, I MILL UIN THE TOSS. 

HEADS! I UIN! HA! HA! 

PREPARE TO LOSE, HEATBALL-NOSE II 

I TAKE 2 HATCHES 
THE NUMBER OF HATCHES IS NOU 21 

YOUR TURH — YOU HAY TAKE 1,2, OR 3 MATCHES. 
HOU MANY 00 YOU UISH TO REHOVE T 3 

THERE ARE NOU 18 HATCHES REHAINING. 
MY TURN ! I REHOVE 1 HATCHES 
THE NUHBER OF HATCHE9 IS NOU 17 

YOUR TURN -- YOU HAY TAKE 1,2, OR 3 HATCHES. 
HOU HANY DO YOU UISH TO REHOVE 7 1 

THERE ARE NOU 16 HATCHES REHAINING. 
MY TURH ! I REHOVE 3 HATCHES 
THE NUHBER OF HATCHES IS NOU 13 

YOUR TURN — YOU HAY TAKE 1,2, OR 3 MATCHES. 
HOU HANY DO YOU UISH TO REHOVE T 1 

THERE ARE NOU 12 HATCHES REHAINING. 
MY TURN I I REHOVE 3 HATCHES 
THE NUHBER OF HATCHES IS NOU 9 



YOUR TURN -- YOU HAY TAKE 1,2, OR 3 MATCHES. 
HOU HANY DO YOU UISH TO REHOVE T 1 

THERE ARE NOU B HATCHES REHAINING. 
MY TURN ! I REHOVE 3 HATCHES 
THE HUHBER OF HATCHES IS NOU 5 

YOUR TURN -- YOU HAY TAKE 1,2, OR 3 MATCHES. 
HOU HANY DO YOU UISH TO REHOVE ? 2 

THERE ARE NOU 3 HATCHES REHAINING. 
MY TURN ! I REHOVE 2 HATCHES 



YOU POOR BOOB ! YOU TOOK THE LAST MATCH 
HA ! HA! I BEAT YOU Ml 



GOOD BYE LOSER! 



I GOTCHA ! ! 



MORRISTOUN, NEU JERSEY" 



UHEN IT IS YOUR TURN, YOU HAY TAKE ONE, TUO, OR THREE" 
HATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE" 
THE LAST HATCH." 



20 PRINT TAB(31);"23 HATCHES" 

30 PRINT TAB(15)J"CREATIVE COHPUTING 

40 PRINT:PRINT:PRINT 

80 PRINT " THIS IS A 6AHE CALLED '23 HATCHES 

90 PRINT 

100 PRINT 

110 PRINT 

120 PRINT 

130 PRINT 

140 PRINT "LET'S FLIP A COIN TO SEE UHO GOES FIRST." 

150 PRINT "IF IT COHES UP HEADS, I UILL UIN THE TOSS.* 

1SS PRINT 

140 REH 

US N » 23 

170 ■ INT(2»RND(5)I 

180 IF c 1 THEN 210 

190 PRINT "TAILS I YOU GO FIRST " 

193 PRINT 

200 GOTO 300 

210 PRINT "HEADS! I UIN! HA! HA!" 

220 PRINT "PREPARE TO LOSE, HEATBALL-NOSE I!" 

230 PRINT 

250 PRINT " I TAKE 2 HATCHES" 

240 N « N -2 

270 PRINT "THE NUMBER OF MATCHES IS NOU" N 

280 PRINT 

290 PRINT "YOUR TURN -- YOU MAY TAKE 1,2, OR 3 HATCHES. 

300 PRINT "HOU HANY DO YOU UISH TO REHOVE", 

310 INPUT K 

320 IF K > 3 THEN 430 

330 IF K <« THEN 430 

340 N « N - K 

350 PRINT "THERE ARE NOU 

351 IF N ■ 4 THEN 381 

352 IF N • 3 THEN 383 

353 IF N ■ 2 THEN 385 
340 IF N <« 1 THEN 530 
370 Z • 4 - K 
372 GOTO 390 

380 PRINT 

381 Z = 3 

382 GOTO 390 

383 Z ■ 2 

384 GOTO 390 

385 Z « 1 

390 PRINT "HY TURN I I REHOVE" 
400 N « N - Z 

410 IF N < « 1 THEN 470 

420 GOTO 270 

430 PRINT "VERY FUNNY I DUMHY!" 

440 PRINT "DO YOU UANT TO PLAY OR GOOF AROUND T" 

450 PRINT "NOU HOU HANY HATCHES DO YOU UANT", 

460 GOTO 310 

470 PRINT 

480 PRINT"Y0U POOR BOOB I YOU TOOK THE LAST HATCH I I OOTCHA !l" 

490 PRINT "HA I HAI I BEAT YOU II!" 

500 PRIHT 

510 PRIHT "BOOD BYE LOSER!" 

520 GOTO 560 

530 PRINT "YOU UON, FLOPPY EARS I" 

540 PRINT "THINK YOU'RE PRETTY SMART I" 

550 PRINT "LETS PLAY AGAIN AND I'LL BLOU YOUR SHOES OFF II" 

560 STOP 

570 END 



";n;"hatches remaining. 



Z "HATCHES" 
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War 



This program plays the card game of 
War. In War, the card deck is shuffled, 
then two cards are dealt, one to each 
player. Players compare cards and the 
higher card (numerically) wins. In case 
of a tie, no one wins. The game ends 
when you have gone through the whole 
deck (52 cards, 26 games) or when you 
decide to quit. 

The computer gives cards by suit and 
number, for example, S-7 is the 7 of 
spades. 

UAR 
CREATIVE COMPUTING HORRISTDUN, NEU JERSEY 

THIS IS THE CARD GAHE OF UAR. EACH CARD IS GIVEN BY SUIT-H 
AS S-7 FOR SPADE 7. DO YOU UANT DIRECTIONS? YES 
THE CONPUTER GIVES YOU AND IT A 'CARD'. THE HIGHER CARD 
(NUMERICALLY) UINS. THE GAME ENDS UHEN YOU CHOOSE NOT TO 
CONTINUE OR UHEN YOU HAVE FINISHED THE PACK. 



YOU: S-10 COMPUTER: S-2 

YOU UIN. YOU HAVE 1 COMPUTER HAS 

DO YOU UANT TO CONTINUE? YES 

YOU: 5-9 COMPUTER: H-J 

COMPUTER UINS! ! ! YOU HAVE 1 COMPUTER HAS 1 

DO TOU UANT TO CONTINUE? YES 

YOU: S-5 COMPUTER: D-3 

YOU UIN. YOU HAVE 2 COMPUTER HAS 1 

DO YOU UANT TO CONTINUE? YES 

YOU: S-K CONPUTER: H-Q 

YOU UIN. YOU HAVE 3 COMPUTER HAS 1 

DO YOU UANT TO CONTINUE? YES 

YOU: C-10 COMPUTER: C-8 

YOU UIN. YOU HAVE 4 COMPUTER HAS 1 

DO YOU UANT TO CONTINUE? YES 

YOU: H-5 COMPUTER: C-3 

TIE. NO SCORE CHANGE. 

DO YOU UANT TO CONTINUE? YES 

YOU: H-A COMPUTER: S-4 

YOU UIN. YOU HAVE 5 COMPUTER HAS 1 

DO YOU UANT TO CONTINUE? YES 

YOU: D-K COMPUTER: C-K 

TIE. NO SCORE CHANGE. 

DO YOU UANT TO CONTINUE? YES 

YOU: C-3 COMPUTER: C-9 

COMPUTER UINS!!! YOU HAVE 5 COMPUTER HAS 2 

DO YOU UANT TO CONTINUE? YES 

YOU: H-7 COMPUTER: C-Q 

COMPUTER UINS!!! YOU HAVE 5 COMPUTER HAS 3 

DO YOU UANT TO CONTINUE? YES 



MORRISTOUN, NEU JERSEY" 



EACH CARD IS GIVEN BY SUIT-*" 



10 PRINT TAB (33); "UAR" 

20 PRINT TAB(15);"CREATIVE COMPUTING 

30 PRINT: PRINT: PRINT 

100 PRINT "THIS IS THE CARD GAME OF UAR. 

1 10 PRINT "AS S-7 FOR SPADE 7. ■; 

120 PRINT "DO YOU UANT DIRECTIONS"; 

130 INPUT Bt 

140 IF B$="N0" THEN 210 

150 IF B$="YES" THEN 180 

160 PRINT "YES OR NO, PLEASE. ■; 

170 GOTO 120 

180 PRINT "THE COMPUTER GIVES YOU AND IT A 'CARD'. THE HIGHER CARD" 

190 PRINT "(NUMERICALLY) UINS. THE GAME ENDS UHEN YOU CHOOSE NOT TO" 

200 PRINT "CONTINUE OR UHEN YOU HAVE FINISHED THE PACK." 

210 PRINT 

220 PRINT 

230 DIM A«(52),L(54> 

240 FOR 1=1 TO 52 

250 READ Aid) 

260 NEXT I 

270 REM 

280 FOR J=1 TO 52 

290 LET L(J)=INT(52*RND(1))t1 

295 IF J=1 THEN 350 

300 FOR K=1 TO J-1 

310 IF LdOOLU) THEN 340 

320 REN 

330 GOTO 290 

340 NEXT K 

350 NEXT J 

360 P=P+1 

370 H1=L(P) 

380 P=P+1 

390 M2=L(P) 

400 PRINT 

420 PRINT "YOU: "JAKHI ), "COMPUTER: ";A»(M21 

430 NI=INT((MI-.5)/4) 

440 N2=INT((M2-.5)/4) 

450 IF N1>=N2 THEN 490 

460 A1=A1+1 

470 PRINT "COMPUTER UINS!!! YOU HAVE";B1;" COMPUTER HAS";A1 

480 GOTO 540 

490 IF N1=N2 THEN 530 

500 B1=B1+1 

510 PRINT "YOU UIN. YOU HAVE";B1;" COMPUTER HAS";A1 

520 GOTO 540 

530 PRINT "TIE. NO SCORE CHANGE." 

540 IF L(Pt1)=0 THEN 610 

550 PRINT "DO YOU UANT TO CONTINUE"; 

560 INPUT V» 

570 IF V*="YES" THEN 360 

580 IF V»="N0" THEN 650 

590 PRINT "YES OR NO, PLEASE. '■; 

600 GOTO 540 

610 PRINT 

620 PRINT 

630 PRINT "YOU HAVE RUN OUT OF CARDS. 

640 PRINT "; COMPUTER— ";A1 

650 PRINT "THANKS FOR PLAYING. IT UAS FUN." 

660 DATA "S-2","H-2","C-2","D-2","S-3","H-3","C-3","D-3" 

670 DATA "S-4","H-4","C-4","D-4","S--5","H-5","C-5","D-5" 

680 DATA "S-6","H-6","C-6","D-6","S-7","H-7","C-7","D-7" 

690 DATA "S-8","H-B","C-8","D-8","S-9","H-9","C-9","D-9" 

700 DATA "S-10","H-10","C-10","D-10","S-J","H-J","C-J","D-J" 

710 DATA "S-O","H-O","C-0","D-O","S-K","H-K","C-K","D-K" 

720 DATA "S-A","H-A","C-A","D-A" 

999 END 



FINAL SCORE: YOU— ";BI; 
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Weekday 



This program gives facts about your 
date of birth (or some other day of 
interest). It is not prepared to give 
information on people born before the 
use of the current type of calendar, i.e. 
year 1582. 

You merelyenter today's date in the 
form — month, day, year and your date 
of birth in the same form. The computer 
then tells you the day of the week of 
your birth date, your age, and how 
much time you have spent sleeping, 
eating, working, and relaxing. 

This program was adapted from a GE 
timesharing program by Tom Kloos at 
the Oregon Museum of Science and 
Industry. 

UEEKDAY 
CREATIVE COHPUTINS HORRISTOUN, NEU JERSEY 

UEEKDAY IS A COHPUTER DEHONSTRATION THAT 
GIVES FACTS ABOUT A DATE OF INTEREST TO YOU. 

ENTER TODAY'S DATE IN THE FORK: 3,24,1978 T 1,7,1978 
ENTER DAY OF BIRTH (OR DtHER DAY OF INTEREST)? 12,2,199? 

12 / 2 / 1999 UIU BE A THURSDAY 



UEEKDAY IS A COHPUTER DEHONSTRATION THAT 
GIVES FACTS ABOUT A DATE OF INTEREST TO YOU. 

ENTER TODAY'S DATE IN THE FORH: 3,24,1978 T 12,1,1977 
ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)? 4,12,1952 

4/12/1952 UAS A SATURDAY 



YOUK HUE IF BIRTHDATE 

YOU HAVE SLEPT 

YOU HAVE EATEN 

YOU HAVE UORKED/PLAYED 

YOU HAVE RELAXED 



YEARS 
25 
B 
4 
5 
6 



HONTHS 
7 
11 
4 

10 
4 



DAYS 
1? 
24 
10 
27 
18 



♦YOU HAY RETIRE IN 2017 • 



10 PRINT TAB (32); "UEEKDAY" 

20 PRINT TAB( 15) ["CREATIVE COHPUTIN0 HORRISTOUN, NEU JERSEY" 

30 PRINT:PRINT:PRINT 

100 PRINT "UEEKDAY IS A COHPUTER DEHONSTRATION THAT" 

110 PRINT'OIVES FACTS AD0UT A DATE OF INTEREST TO YOU." 

120 PRINT 

130 PRINT "ENTER TODAY'S DATE IN THE FORH: 3,24,1978 "; 

140 INPUT H1.D1.Y1 

150 REH THIS PRO0RAH DETERHINES THE DAY OF THE UEEK 

U0 REH FOR A DATE AFTER 1582 

170 DEF FNA(A)=IHT(A/4) 

180 DIH T(12) 

190 DEF FNB(A)=INT(A/7) 

200 REH SPACE OUTPUT AND READ IN INITIAL VALUES FOR HONTHS. 

210 FOR I« 1 TO 12 

220 READ TU> 

230 NEXT I 

240 PRINT'ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)"; 

250 INPUT H,D,Y 

260 PRINT 

270 LET II « INT((Y-1500)/100) 

280 REH TEST FOR DATE BEFORE CURRENT CALENDAR. 

290 IF Y-1582 <0 THEN 1300 

300 LET A » I1»5*(I1+3)/4 

310 LET I2=INT(A-FNB(A)*7) 

320 LET Y2=INT(Y/100) 

330 LET Y3 »INT(Y-Y2*100> 

340 LET A =Y3/4*Y3+D+T(MH12 

350 LET D=INT(A-FNB(A)*7)+1 

360 IF H > 2 THEN 470 

370 IF Y3 ■= THEN 440 

380 LET T1=INT(Y-FNA(Y)«4) 

390 IF T1 <> THEN 470 

400 IF BOO THEN 420 

410 LET B«6 

420 LET > ■ 8-1 

430 GOTO 470 

440 LET A =■ 11-1 

450 LET T1«INT(A-FNA(A)*4) 

460 IF T1 ■ THEN 400 

470 IF B <>0 THEH 490 

480 LET B « 7 

490 IF (Y1*12+H1)*31+DK(Y»12tH)»3HD THEN 550 

500 IF (Y1»12+H1>*31+DI=(Y»12+H)*31+D THEN 530 

510 PRINT Hj"/";D;"/"JY;" UAS A "; 

520 GOTO 570 

530 print h;"/";d;"/";y;" is a "; 

540 GOTO 570 

550 print h;"/";d;"/";y;" uill be a "; 

560 REH PRINT THE DAY OF THE UEEK THE DATE FALLS ON. 
570 IF B <>1 THEN 590 
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380 PRINT "SUNDAY" 

590 IF B<>2 THEN 410 

600 PRINT "MONDAY " - 

610 IF B<>3 THEN 630 

620 PRINT "TUESDAY" 

630 IF B<>4 THEN 650 

640 PRINT "WEDNESDAY" 

650 IF B<>5 THEN 670 

660 PRINT "THURSDAY" 

670 IF B<>6 THEN 490 

680 60T0 I2S0 

690 IF B<>7 THEN 710 

700 PRINT "SATURDAY" 

710 IF <Y1*12+H1>*31+DWY*12+M)*3HD THEN 1120 

720 LET I5=Y1-Y 

730 PRINT 

740 LET I6=H1-H 

750 LET I7=DI-D 

760 IF I7>»0 THEN 790 

770 LET I6» 14-1 

780 LET 17=17*30 

790 IF I6>=0 THEN 820 

800 LET 15=15-1 

810 LET 16=16+12 

820 IF I5<0 THEN 1310 

830 IF 17 <> THEN 830 

835 IF 16 <> THEN 850 

840 PRINT"«»»HAPPY BIRTHDAY***" 

850 PRINT " "," "."YEARS", "MONTHS", "DAYS" 

860 PRINT "YOUR A8E IF BIRTHDATE ",13,16,17 

870 LET A8 ■ (I3*365)t(I6*30)+I7+INT(I6/2) 

880 LET K5 • IS 

890 LET K4 • 14 

900 LET K7 « 17 

910 REH CALCULATE RETIREMENT DATE. 

V20 LET E ■ Y*45 

930 REH CALCULATE TIME SPENT IN THE FOLLOUINS FUNCTIONS. 

940 LET F « .35 

930 PRINT "YOU HAVE SLEPT ", 

960 GOSUB 1370 

970 LET F = .17 

980 PRINT "YOU HAVE EATEN *, 

990 80SUB 1370 

1000 LET F = .23 

1010 IF K5 > 3 THEN 1040 

1020 PRINT "YOU HAVE PLAYED", 

1030 GOTO 1080 

1040 IF K5 > 9 THEN 1070 

1050 PRINT "YOU HAVE PLAYED/STUDIED", 

1040 GOTO 1080 

1070 PRINT "YOU HAVE UORKEB/PLAYED", 

1080 GOSUB 1370 



1085 GOTO 1530 




1090 PRINT "YOU HAVE RELAXED ",K5,K4,K7 




1100 PRINT 




1110 PRINT " V'*YQU A** RETIRE 1N";E;"*" 




1120 PRINT 




1140 PRINT 




1150 PRINT 




1160 PRINT 




1170 PRINT 




1180 PRINT 




1190 PRINT 




1200 PRINT 




1210 PRINT 




1220 PRINT 




1230 PRINT 




1240 END 




1250 IF 0=13 THEN 1280 




1240 PRINT "FRIDAY " 




1270 GOTO 710 




1280 PRINT "FRIDAY THE THIRTEENTH— -BEUARE" 




1290 GOTO 710 




1300 PRINT "NOT PREPARED TO GIVE DAY OF UEEK PRIOR TO NDLXXXII. " 


1310 GOTO 1140 




1320 REH TABLE OF VALUES FOR THE HONTHS TO BE 


USED IN CALCULATIONS 


1330 DATA 0, 3, 3, 4, 1, 4, 6, 2, 5, 0, 3, 5 




1340 REH THIS IS THE CURRENT DATE USED IN THE 


CALCULATIONS. 


1350 REH THIS IS THE DATE TO BE CALCULATED ON. 




1340 REH CALCULATE TIHE IN YEARS, HONTHS, AND 


DAYS 


1370 LET K1=INT(F«A8) 




1380 LET 15 = INTIK1/365) 




1390 LET K1 = K1- (15*365) 




1400 LET 16 = INTIK1/30) 




1410 LET 17 = K1 -(16*30) 




1420 LET K5 = K5-I5 




1430 LET K6 =K6-I4 




1440 LET K7 = K7-I7 




1450 IF K7>=0 THEN 1480 




1460 LET K7=K7t30 




1470 LET K6=K4-1 




1480 IF K4>0 THEN 1510 




1490 LET K4=K6+I2 




1500 LET K5=t!5-1 




1510 PRINT 15,14,17 




1520 RETURN 




1530 IF K4=12 THEN 1550 




1540 GOTO 1090 




1550 LET K5=K5+1 




1540 LET K6=0 




1570 GOTO 1090 




1580 REH 




1590 END 
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Word 



WORD is a combination of 
HANGMAN and BAGELS. In this 
game, the player must guess a word 
with clues as to letter position fur- 
nished by the computer. However, 
instead of guessing one letter at a time, 
in WORD you guess an entire word (or 
group of 5 letters, such as ABODE). 
The computer will tell you if any letters 
that you have guessed are in the 
mystery word and if any of them are in 
the correct position. Armed with these 
clues, you goon guessing until you get 
the word or, if you can't get it, input a 
"?" and the computer will tell you the 
mystery word. 

You may change the words in Data 
Statements 512 and 513, but they must 
be 5-letter words. 

The author of this program is Charles 
Reid of Lexington High School, Lex- 
ington, Massachusetts. 

UORD 
CREATIVE COHPUTINO HORRISTOUN, NEU JERSEY 

I AH THINKING OF A UORD — YOU GUESS IT. 
CLUES TO HELP YOU BET IT. 000D LUCK!! 



I UILL GIVE YOU 



YOU ARE STARTING A NEU GANE... 

GUESS A FIVE LETTER UORD? ABCDE 

THERE UERE 3 HATCHES AND THE COHHON LETTERS UERE...CAD 

FROH THE EXACT LETTER HATCHES, YOU KNOU — D- 



GUESS A FIVE LETTER UORD? FGHIJ 

THERE UERE HATCHES AND THE COHHON LETTERS UERE. 

FROH THE EXACT LETTER HATCHES, YOU KNOU 



. — D- 



IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS. 

GUESS A FIVE LETTER UORD? LMNOP 

THERE UERE 1 HATCHES AND THE COHHON LETTERS UERE...N 

FROH THE EXACT LETTER HATCHES, YOU KNOU. --ND- 

IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS. 

GUESS A FIVE LETTER UORD? CANDY 

THERE UERE 5 HATCHES AND THE COHHON LETTERS UERE. ..CANDY 

FROH THE EXACT LETTER HATCHES, YOU KNOU CANDY 

YOU HAVE GUESSED THE UORD. IT TOOK 4 GUESSES! 

UANT TO PLAY AGAIN? YES 

YOU ARE STARTING A NEU GAHE... 

GUESS A FIVE LETTER UORD? ABCDE 

THERE UERE HATCHES AND THE COHHON LETTERS UERE... 

FROH THE EXACT LETTER HATCHES, YOU KNOU 



IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT OUESS. 

GUESS A FIVE LETTER UORD? FGHIJ 

THERE UERE 2 HATCHES AND THE COHHON LETTERS UERE...FI 

FROH THE EXACT LETTER HATCHES, YOU KNOU F 

GUESS A FIVE LETTER UORD? HHOPS 

THERE UERE 1 HATCHES AND THE COHHON LETTERS UERE...S 

FROH THE EXACT LETTER HATCHES, YOU KNOU F 

IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS. 

GUESS A FIVE LETTER UORD? FISTS 

THERE UERE 5 HATCHES AND THE COHHON LETTERS UERE...FISST 

FROH THE EXACT LETTER HATCHES, YOU KNOU FI- — 

GUESS A FIVE LETTER UORD? FIRST 

THERE UERE 5 HATCHES AND THE COHHON LETTERS UERE. ..FIRST 

FROH THE EXACT LETTER HATCHES, YOU KNOU FIRST 

YOU HAVE GUESSED THE UORD. IT TOOK 5 GUESSES! 

UANT TO PLAY AGAIN? NO 



HORRISTOUN, NEU JERSEY" 



YOU GUESS IT. 
000D LUCK!!": 



I UILL GIVE YOU" 
PRINT: PRINT 



2 PRINT TAB<33);"U0RD" 

3 PRINT TA8(15);"CREATIVE COHPUTINO 

4 PRINT: PRINT: PRINT 

5 DIH S<7>,A(7),L<7),D(7),P(7> 
10 PRINT "I AH THINKING OF A UORD - 
15 PRINT "CLUES TO HELP YOU GET IT. 
20 REH 

30 PRINT: PRINT: PRINT "YOU ARE STARTING A NEU GAHE..." 
35 RESTORE 

40 READ N 

30 C=INT(RND(I)«N+1) 

60 FOR 1=1 TO C 

70 READ S» 

00 NEXT I 

90 G=0 

?5 S(0)=LEN(S») 

100 FOR 1=1 TO LEN(S»): S(I )=ASC(HID»(S*,I,1 ) ) : NEXT I 

110 FOR 1=1 TO 5 

120 A<I>=45 

130 NEXT I 

140 FOR J=1 TO 5 

144 P(J)=0 

146 NEXT J 

150 PRINT "GUESS A FIVE LETTER UORD"; 

160 INPUT L$ 

170 G=G+1 

172 IF S»=G$ THEN 500 

173 FOR 1=1 TO 7: P(I)=0: NEXT I 
175 L(0)=LEN(L») 

180 FOR 1 = 1 TO LEN(L»): L(I)=ASC(HIO»(l.»,I,1 )) : NEXT I 

190 IF L(1)=63 THEN 300 

200 IF L(0)<>5 THEN 400 

205 H=0: 0=1 

210 FOR 1 = 1 TO 5 

220 FOR J=1 TO 5 

230 IF SIDOLIJI THEN 240 

231 'P(0>=L<J> 
232-0=0+1 

233 IF IOJ THEN 250 

240 A(J)=L(J) 

250 H=H+1 

260 NEXT J 

265 NEXT I 

270 A(0)=5 

272 P(0)=H 

275 A$="": FOR 1=1 TO A(0): A*=A*+CHR»(A(I ) ) : NEXT I 

277 P»="": FOR 1 = 1 TO P(0): P«=P»+CHR»<PU>>: NEXT I 

280 PRINT "THERE UERE";H;"HATCHES AND THE COHHON LETTERS UERE...";P» 

285 PRINT "FROH THE EXACT LETTER HATCHES, YOU KNOU ";A$ 

286 IF AI=S» THEN 500 

287 IF N>I THEN 28V 

288 PRINT: PRINT "IF YOU GIVE UP, TYPE '?' 
28? PRINT 
2V0 GOTO 150 

300 S«= FOR 1=1 TO 7: S»=S»+CHR»<S(I) ): 

310 PRINT "THE SECRET UORD IS ";S»: PRINT 
320 GOTO 30 

400 PRINT "YOU HUST OUESS A 5 LETTER UORD. 
410 PRINT: G=G-1 : GOTO 150 

YOU HAVE GUESSED THE UORD. IT TOOK";G;"GUESSES! ": PRINT 

UANT TO PLAY AGAIN";0$ 

YES" THEN 30 
530 DATA 12, "DINKY", "SH0KE","UATER", "GRASS", "TRAIN", "NIGHT", "FIRST" 
540 DATA "CANDY", "CHAHP", "MOULD", "CLUHP", "DOPEY" 
99? END 



FOR YOUR NEXT GUESS. 



NEXT I 



START AGAIN." 



500 PRINT 
510 INPUT 
520 IF Q» 
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Index by Game Category 



Introductory Fun 




Remove an Object 




Football (2) 


64 


Buzzword 


36 


Bantum 


14 


Golf 


71 


Hello 


82 


Even Wins (2) 


60 


Hockey 


88 


Name 


116 


Nim 


118 


Slalom 


147 


Poetry 


128 


23 Matches 


177 






Rock, Scissors, Paper 


137 






Gambling and Casino 




Russian Roulette 


141 


Matrix Manipulation 




Blackjack 


18 


Weekday 


179 


Battle 


15 


Craps 


52 






Bombardment 


22 


Dice 


57 


Educational 




Depth Charge 


55 


Horserace 


92 


Animal 


4 


Hurkle 


94 


Poker 


129 


Change 


39 


Mugwump 


114 


Roulette 


138 


Chemist 


42 


Pizza 


126 


Slots 


149 


Chief 


43 


Salvo 


142 






Civil War 


46 






Card and Board 




Fur Trader 


69 


Logic 




Acey Ducey 


2 


Hammurabi 


78 


Awari 


6 


Checkers 


40 


Hangman 


80 


Bagels 


9 


Gomoko 


74 


Kinema 


95 


Chomp 


44 


War 


178 


King 


96 


Cube 


53 






Literature Quiz 


104 


Digits 


58 


Combat 




Math Dice 


113 


Flip Flop 


63 


Bombs Away 


24 


Stock Market 


154 


Hexapawn 


83 


Combat 


50 


Synonym 


164 


High l-Q 


86 


Gunner 


77 


Train 


175 


Master Mind® 
Nicomachus 


110 
117 






Plotting and Pictures 




One Check 


122 






Amazing 


3 


Queen 


133 






Banner 


10 


Reverse 


135 






Bounce 


25 


3-D Tic Tac Toe 


168 






Bug 


30 


Tic Tac Toe (2) 


171 






Bunny 


35 


Tower 


173 






Calendar 


37 


Word 
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Diamond 


56 










Life 


100 


Space 








Life for Two 


102 


Lunar, LEM, Rocket 


106 






Love 


105 


Orbit 


124 






Sine Wave 


146 


Splat 


151 






3-D Plot 


167 


Super Star Trek® 
Target 


157 

165 






Number or Letter Guessing 










Guess 


75 


Sports Simulation 








Hi-Lo 


85 


Basketball 


12 






Letter 


99 


Bowling 


26 






Number 


121 


Boxing 


28 






Stars 


153 


Bullfight 


32 






Trap 


176 


Bullseye 


34 
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The #1 magazine of computer applications and soft wart 



and 




ames for one, 



two, or more players — Basketball, Craps, Gomoko, 
Blackjack, Even Wins, Digits, Bombs Away, Horserace. 



landin 



Write 



All games come complete with step-by-step programs and 
sample runs. All programs run on Microsoft 8K Basic, Rev. 4.0. 

Basic conversion table included. 

David H. Ahl is the founder and publisher of Creative Computing. 
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